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1.0 LOCORE 

Communications region# interrupt traps and preset entry point 4.. 
tab I e - 


1-1 Program Function 

This program contains three functional parts- These 
are: {1} communications region-this area contains system 

constants that are common for all 2-1 MSOS systems* 

{2} interrupt trap region-this area is set up to provide 
the interrupt handling desired; I3> preset entry point 
table-this table allows entry to a protected routine 
from an unprotected routine- 

1-2 Communications Region 

Locations $□ thru $FF are directly addressable in the 
1700 computer- The communications region is set up to 
take advantage of this feature- The first part of the 
table contains constants which provide commonly used 
masks- The second part of the table contains system 
parameters such as flags# counters and addresses of system 
entry points. 


1-3 Interrupt Trap Region 

The interrupt trap region encompasses the area from $100 
to $13F - Each interrupt line has associated with it a 
four word area within this region: line zero-$100 to 

$103# line one-$104 to $107# etc- A typical setup for 
line zero is shown below: 


LINE0 NUn 0 

RTJ {$Ffi} 
Nun IS 
ADC IPR0C 


U0RD 1 
WORD 2 
LI0RD 3 
WORD 4 


Word one is reserved for the hardware storage of the 
program address on interrupt- 

Word two is the first instruction executed following an 
interrupt. A return jump to a system interrupt processor 
is then made- For line zero the transfer is to the 
internal interrupt handler -CIPROCD-. The other lines 
transfer to the common interrupt handler {ALUNI- These 
routines provide for saving of registers and program 
conditions via an interrupt stack- 
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Uord three is used to hold the priority level associated 
with the interrupt line- The HASKT table is indexed by 
th i s ord i na I • 

Uord four contains the address of the processor for this 
line- Host lines use the routine EPR0C- Use of EPROC 
dictates that the interrupting device must return bit 
two as an * interrupt status' 7 during a status operation 
and all hardware devices must be ordered by logical unit 
number on the interrupt lines- A special interrupt 
routine may be designated here instead of EPROC- 

1-4 Table of Presets 

The table of presets provides entry to a protected 
routine from an unprotected routine- Entries are made 
following the interrupt trap region in the following 
manner: 


ALF 

3 , NAME 

ADC 

NAME 

EXT 

NAME 


Name is an entry point to a core resident system program. 
See section for further information. 
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2.Q SYSBUF - System tables and parameters. 

2.1 Program Function 

The following system buffers system tables and miscellaneous 
subroutines are contained in this program. 

1. Logical Unit Tables 

A. L0G1A 

B. L0G1 

C. L0G2 

2. Interrupt Mask Table 

A. MASKT 

3. Storage Stacks 

A. INTSTK - Interrupt stack 

B. VOLBLK - Volatile storage 

C. SCHSTK - Scheduler stack 

M. Core Allocation Data 

A. CALTHD 

B. LVLSTR 

5. Diagnostic Tables 

A. ALTERR 

B. DGNTAB 

b. Hass Memory Diagnostics 
A. MMDIAG 

7. Miscellaneous Programs 

A. IDLE 

B. OVRLAY 

a. TIMER-, RTMS-i TRACE and 0DEBU6 information. 
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A. TinCPSi TIMEC, TIMACK-, T0DLVL-, NSCHED 

B. R17L0C 

C. STOPIT 
D ■ CHRSFG 

T. Dummy Device Driver 
A. DUODRV 


10. Physical Device Tables 


5.5 Logical Unit Tables 
5.5.1 L0G1A - Table 

This program segment contains ADC’s for each system logical 
unit. Each ADC will specify the address of the physical 
device table for a specific logical unit. This table pro- 
vides the definition of logical unit uer physical device. 

Certain restraints are imposed on the ordering of this 
table: -Cl> the core allocator is logical unit onei 

C5> use of EPR0C requires that each logical unit is ordered 
by interrupt line number. Standard logical units Ci.e. 
inputn listi etc.> are assigned by equates referencing this 
table . 

5.5.5 L0G1 Table 

An entry is placed in this table for each logical unit. The 
format is as shown below: 

15 1M 13 15 11 0 

i i L.U. 


BIT 14 = 1 implies the logical unit shares a device lex. 

FORTRAN and NON-FORTRAN Printer Driver would 
have two logical units assigned to one physical 
printer! 


BIT 13 = 1 

BIT 0 thru 
-CL.U . } 


impl ies the logical unit is marked down 

11 

is the alternate logical unit {zero implies 
no alternate! 
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2. E. 3 LOGE Table 

This table is preset to 5FFFF for each logical unit. 

This table is used to hold the top of the thread address 
for requests for each logical unit. 

a. 3 Interrupt Mask Table 

This table is indexed by priority level to set the M-register. 
The M-register setting will determine which interrupt lines 
will be enabled for a given priority level. Two basic rules 
to be followed are: 

1. Unused interrupt lines should have their corresponding 
bit set to zero throughout the table. {Bits 0 through 
IS of the M-register correspond to interrupt lines □ 
through 1ST 

a. A software priority is associated with each interrupt 
line. More than one line can be associated with the 
same priority and can have the same mask. A "I" bit 
is placed in the table for the bit position associated 
with an interrupt line for all levels below the priority 
level associated with that line. "0" bits must be placed 
in the interrupt line position for all the priority 
levels equal to and above the priority level associated 
with the line. 

2.4 Interrupt Stack 

The interrupt stack {INTSTKI is the block of storage set aside 
for saving the status of interrupted programs. The Common 
Interrupt Handler stores the C3 — A-I- and P- registers and 
the overflow indicator and the priority level of the interrupt- 
ed program in this area. Five words are required for each 
entry and the stack is of the push-downi pop-up typei i.e.i 
last-ini first out. The number of entries to be allowed for 
in the table is derived from the number of different priority 
levels used by interrupts. 

2. 4.1 Interrupt Stack Entry 
lilord 

0 (2 - Register 

1 A - Register 

a I - Register 

3 Overflow {bit ISJi P-Register 

4 Priority Level 
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2.5 Volatile Storage 

VOLBLK is the volatile storage area set aside for alloca- 
tion of data storage for routines that must be re-entrant 
-Ci.e.i may be operated at more than one level at the same 
time!- Sufficient volatile storage must be reserved for 
each priority level to accommodate the worst case or 
maximum amount of volatile storage that can be requested 
at each level. The system cannot recover from overflow 
{more requested than is available} of volatile storage. 

2.5.1 Core Requirements 

Core may be reserved for volatile following these quidelines: 

1. For each priority level in which monitor requests are 
madei eight locations of volatile are required. If the 
Request Processor itself makes a request such as a 
Secondary Scheduler calli an additional eight locations 
are required. Thus sixteen locations must be reserved 
per priority level plus additional locations if used by 
other re-entrant routines. 

2. If the re-entrant FORTRAN Object Library and re-entrant 
Encode/Decode Package are used 4T locations must be 
reserved for each priority level using the re-entrant 
FORTRAN library plus 5L locations for each priority 
level using re-entrant Encode/Decode. 

2 • L> Scheduler Stack 

This stack-i SCHSTK-i is a series of four-word entries. 

Iilord 

0 priority level 

1 completion address 

2 thread to next entry 

3 value of fl-register being passed 

A program may request the operation of another program by 
making a scheduler request. Scheduler requests may also 
be generated by the Timer Routine after a given interval 
of time has elapsed. These requests are threaded together 
on the scheduler stack. 
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The total number of entries required is equal to the sum 
of the number of scheduler requests and timer requests 
that can be on the stack at one time« The size of this 
stack may be changed by the user- 

5.7 SEC PRO 

Normally all entries are left emptyn i.e.i NUN 57FFF. The 
address of a special interrupt response routine can be in- 
cluded in the entry for its linei but it is more efficient 
to put this address in the fourth word of the interrupt trap 
location instead of using EPROC and SECPRO. 

5.6 Core Allocation Data 

LVLSTR is the table of starting addresses for the allocatable 
core area available to each priority level. The upper 

bound for protected allocatable area is the same for all 

levels: the start of unprotected core. To prevent low- 

priority programs from tying up all of the allocatable areat 
it is common to restrict the amount available to them while 
making the entire allocatable area available to the high 
priority programs. 

LVLSTR is set up to reflect the above. AREA1-, AREA!-, AREA3 

and AREAM are entry point names in the SPACE program used to 

divide the allocatable area as shown below. 



Request priorities li 5 and 3 must include sufficient area 
for the Job Processor. The entire area-AREAC must be 
available at request priority zero so the system can get 
started as initialized. 


AA 3777 


PRINTED IN USA. 



CONTROL DATA CORPORATION MAD r 1Q71 

Arden H i 1 1 s De velQBmeirt DIVISION MAK o 13/1 


DOCUMENT CLASS II>IS PAGE NO 2-b 

PRODUCT NAMF 1700 HS O S 

PRODUCT MODEL NO E0Qb*3.Q MACHINE SERIES 1Z M 

2. c 1 Diagnostic Tables 

2.T.1 Alternate Device Error Table 

This table reserves one word for each device which could 
have a simultaneous failure. 

2. c i.2 Diagnostic Timer Table 

An ADC entry is made pointing to the physical device table 
for each logical unit to be supervised by the diagnostic 
timer. 

2.10 Mass Memory Diagnostic Routine 

MMDIAG is a routine that prints a message of the following 
form: 

MASS MEM ERR n 
n is the error code 

If the request that resulted in failure was a System 
Directory request this routine releases allocated core. 
Control then returns back to the driver. This routine may 
be modified to perform additional functions such as making 
a Timer Request for the scheduled program to be attempted 
again at a later time. 

2.11 Idle Loop 

This routine runs at level -1 when no other programs are ' 
running. This routine may be modified to provide a counter 
to monitor the amount of idle time. If IDLE is running 
a snap dump may be taken by stepping-* clearing the A-register 
and hitting run. 

2.12 Overlay Subroutine 

The overlay subroutine allows users to call for mass memory 
to be read over the actual call parameters. This is accom- 
plished in the disk or drum driver by moving the parameter 
list to the equipment table and using the overlay subroutine 
to ensure that the return address from the call cannot be 
written over. Indirect overlay calls are not permitted. 

The following example shows a typical overlay disk read. 

RTJ OVRLAY 

ADC <*2Q0iC0MPi0-»$flC2iNTBUFiDiADR 
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5.13 Dummy Device Driver 

This routine is used with the dummy device table and is 
assigned a logical unit like a normal device. Read or write 
requests that address this logical unit cause the dummy 
driver to be initiated-! and the completion address in the 
request is scheduled with error indication. This allows 
the Dummy Device to be setup as the alternate for devices 
where it would not be acceptable to hang up the request 
waiting for operator action in response to the Alternate 
Device Handler request for input. 

5. 14 Physical Device Tables 

The physical device table IPDT’sJ contain all the device 
data necessary for a device to be operated by its driver. 
Word □ through 15 have the same general use for all device 
drivers. Words from 13 on are used for special purposes 
appropriate to the driver-i if necessary. 

Each drivers physical device table setup is outlined in the 
1700 MSOS Installation Handbook Pub. No. b0534300B. 

O 



AA 3777 


PRINTED IN USA. 



1 


2 


4 


5 



ru 

03 


MAR 51971 













2 


4 


5 



CONTROL DATACORPORATION document -r- rvA Cl 

SOFTWARE DOCUMENT ■ C LA5S 

™ I — l | OOC r^ T 0\J^VK 


SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 


^VpE nOO I PROJECT NO. 


GE 2 




APPROVED 

DATE 
























3.0 SCHEDULER 

3.1 EXTERNAL SYMBOLS 

f 10 Entry point of SPACF request 

^CWTOP Location in System Tables containing location of 
top entry in schedule stack 

3.5 FUNCTION 

In a given system* numerous requests for the execution of 
programs at specific priority levels may be generated. 
Specifically* these requests are generated when 

a> an I/O request has been completed* 
b> a specified time interval has elapsed* 
cJ core has been allocated* 

d> a mass memory request has been executed. 

Requests may also be made by any program directly. They 
are called Scheduler Requests. 

It is the function of the Scheduler Request Processor to ^ 

a> cause the immediate execution of a requested program 

if it is of a higher priority level than the requesting 
TcurrentT program* or 

b! thread the request by priority and within a priority 

by first in first out* if its priority is the current 
priority. 

If the requested program is mass memory resident* the 
Scheduler Processor will cause allocation of core for this 
program and transfer of the program from mass memory. After 
the program has been transferred* a Scheduler Request is 
made* which results in a> or bl above. 

Whenever a program terminates* the Program dispatcher will 
select the next program to be run* either from the top of 
the scheduler thread or the interrupt stack- 

3-3 Entry Interfaces 

Program is entered from the Request Entry Processor. The 
calling ^requesting} program must have interrupts enabled. 
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3-4 Exit Interface 

The program exits either to the requested program ■•'completion 
addresser if the level is higher than the current one or to 
the request exit. 

In the first case the priority level* I and the return address 
leading to the request exit are saved in the proper positions 
of the interrupt stack and its base adjusted. A, Q and I are 
saved in volatile* which is not released until the requested 
program terminates- T contains the base of volatile storage* 
when control is given to the requested program. 

Interrupts are enabled and the requested priority level and 
mask set. 

In the second case the request has been threaded. Control 
goes to REtfXT to restore the registers for the requestor 
and enable interrupts. 

3-5 Internal Description 

All Scheduler Requests are identified by the request entry 
processor* which also allocates a sufficient amount of volatile 
storage for re-entrancy purposes. Then control is given to 
the Scheduler Request Processor ^Symbol ITT. Tnterrupts are 
enabled and I contains the base address of the allocated 
volatile storage. Volatile is organ i zed in this way ■ 

-Cl} + 0 conta i ns <3 

III + 1 contains A 

II} + 3 contains I 

-Cl} + 3 contains Return Address 

TI> + M contains Priority Level of Request 

■Cl} + S contains Pointer to Request Parameter l i st 

•Cl} + b contains First Word of Request {Temp.} 

Cl} + 7 contains Second Word of Request CTemp.} 

First the return address is adjusted by two locations unless 
the call was indirect* in which case it had already been 
adjusted by the Request Entry Processor. Then word 1 and 3 
of the call are stored in volatile temporarily. If the call 
is a directory call control is given to DIRCAL- Tf not a 
directory call* a test is made to see if the requested program 
is of higher level than the current one in which case control 
transfers to HILVL- 
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Otherwise* a test for a primary call -CSCHDLE request!- is 
made and only then* if it is not a directory call* not of 
a higher level’ and not a secondary call* is a position in the 
Scheduler Stack obtained and the request transferred from 
volatile Cl} + fc> and Cl} + 7 into the stack* The top of the 
available Cempty} thread is in tompt. All ^empties* 7 Cavail- 
able entries} are threaded together* the last one containing 
-0 in the thread. Thus if TOMPT contains -0* it indicates 
that the stack has overflowed* in which case an error routine 
is entered. T he Scheduler Stack is shared with entries from 
timer requests. It effectively buffers these requests* so 
that the requesting programs may leave core- One entry on 
the Schedu 1 er/T imer Stack consists of 4 words. 



The completion address is absolutized before going on the 
stack as it cannot be absolutized later. 

The Schedu 1 er/T imer Stack and T0 M PT must be preset by the 
user • 


For directory calls the DIRCAL routine determines after placing 
the call pr i or i ty into the directory* if the called program 
is mass memory resident. In this case* control goes to the 
Allocator Request Processor -("Symbol T10T. Otherwise* control 
goes to SCHED2 or to HILVL depending on the priority of the 
request . 


At SCHEDS the original contents of the (3-register are stored 
in the request from volatile TIT- + 0 and the request is then 
threaded on the Scheduler thread. This thread is not to be 
confused with the Scheduler Stack since it contains secondary 
scheduler requests located somewhere in a user program* 
primary requests located in the stack and directory requested 
located in the directory. 


In the THRED1 routine a position for the new request is 
determined according to the priority of the new entry. It 
may be at the end of the beginning of the existing thread 
in particular if it is the first entry. 

The routine THREAD accompl ished the actual threading. 
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HILVL gives control to the requested program immediately 
after saving all information necessary to continue the 
requesting program. A request for a higher level program 
can therefore be considered a pseudo interrupt. 

T he current priority level and I are saved in the interrupt 
stack and the interrupt stack base address count is incre- 
mented by 5. The request exit is stored as the return address 
since upon return from the program volatile must be restored 
as well as A and <3. Then the requested priority level and 
the associated mask are set and control is given to the new 
^Go To* 7 address. 
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4.0 Dispatcher 

4.1 Internal Symbols 

SCHSTC Routine to initiate a program when taken from the 
scheduler thread. 

DISP start of Program Dispatcher 

COMEXT Defined by an ECU and determines the interrupt trap 
slot location to be used as a common exit. 

4-E Dispatcher Function 

Whenever a protected program terminatesr it will give control 
to the Program dispatcher*. The Program Dispatcher decides 
which program shall be initiated next- T t could be a program 
previously interrupted and waiting on the interrupt stack* 
or a program that has been scheduled and is waiting in the 
scheduler thread. The highest priority program is then 
initiated by the Program Dispatcher and control given to it. 

4-3 Entry Interfaces 

Fntered via a jump to entry point DISP. 

4*4 Exit Interfaces 

If control is given to the program that was previously 
interrupted* the A-* (3-, I-* and M -reg isters and the overflow 
are restored to their previous condition* as well as priority 
level. Interrupts are enabled* and control returns to the 
location at which the interrupt originally occurred. 

If control is given to a program on the scheduler thread* 
will contain the address of the scheduler thread entry* 

Q will contain the fourth word of the entry -Cthe original Q 
in scheduler calls* or an error indication in I/O calls* or 
the time of day in timer callsT* priority level and M will 
contain the conf i gurat i on specified in the first word of the 
entry* and I and overflow will be an arbitrary conf i gurat i on • 
Interrupts are enabled. 

4.5 Internal Description 

After the program is entered* a test is made to determine 
whether the priority of the highest interrupted program is 
5 to the priority of highest program waiting in the scheduler 
thread. If the interrupted program is to be resumed* the 
return address is stored in the common exit and I and A are 
restored. Then* the interrupt stack base is adjusted down 
by 5 and store’d in FOUNT, and the priority level restored 

"Protected programs may also terminate with a RELEAS request 
which jumps to the Program Dispatcher. 
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into the cell containing priority level. T he mask associated 
with this level is transferred into m Twhich restores MT r 
and then <2 is also restored. Control is returned to the 
interrupted program by an EXI instruction which restores 
overflow and enables interrupts- 

If the program of highest level is on the scheduler threadr 
the priority specified in the highest thread entry Cthe 
address of this entry is in SCHTOP} is placed into the cell 
containing priority level r and the associated mask placed 
into M. Then SCHTOP is updated pointing now to the next 
entry in the thread. If there is no other entryr it contains 
- 0 . 



Nextr a test is made whether the scheduler thread entry was 
a primary entry -Ci.e.r not resulting from a completed I/O 
call or an expired timer call! and is in the scheduler 
stack -Csee specification on scheduler for difference between 
scheduler stack and thread!-. 

If yesr the scheduler stack position is added to the thread 
of ^empties^ 7 and the address to which control is to be given 
is stored in the common exit. Then the address of the entry 
is put into A and the fourth word of the call into < 2 - Control 
is transferred with an EXI instruction which enables interrupts. 

If the scheduler thread entry resulted from an I/O or Tj me r 
call» the specified completion location may be relative. If 
it is> the absolute address is determined and the address 
stored in the common exit. Then the third word of the entry 
^containing the threadT is set to 0 as an indication that 
the call is completed and could be made again* A and <2 are 
loaded and r ontrol is transferred as above. 
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5.0 Schedu I er-D I spatcher for Re-entrant FORTRAN Library 

5.1 Program funtions of RDISP 

T his version of the schedu 1 er/d i spatcher is the same as the 
scheduler TSGHEDUT and dispatcher {NDISPT with the additional 
capability to save or restore the FORTRAN scratch area and 
the library temporary locations on changes of priority level 
which would give control to another FORTRAN user. 

5-2 Entry Interfaces -Csee sections 3-3r 4.31 

5.3 Exit Interfaces Tsee sections 3.4r 4-4} 

5-4 Internal Description 

The sections 3.5 and 4.5 of this IMS should be referenced for 
the internal description of the norma 1 dispatcher and scheduler 
The text in this section only describes the differences in 
this module from the standard. 

If entry into the scheduler i s by a program requesting a 
higher level program to be run* other than a mass memory £ 

directory ca 1 1 r then the requestor is put on the interrupt * 

stack and control is passed to SAVE at the requested priority. 

At SAVE a test is made to see if the new priority level is 
a FORTRAN level and a new FORTRAN level* Tf so we must save 
our data to provide re-entrancy. If not we exit SAVE back 
to the scheduler. If we must save our data we calculate the 
data area required to save $<"S thru $E5r our normal A, Q 
and I plus the data list specified by FLIST . The Q register 
is set equal to the old FORTRAN level FLEVEL and the A register 

is set equal to the volatile region associated with the old 

level TFT0P>. Volatile is then requested. The return address 
for SAVE is stored in the third word of volatile and the new 
FLEVEL and FT0P are set up. Interrupts are enabled and the 

FORTRAN scratch area is now saved in volatile. The conditions 

on entry are reset and exit is made. 

Upon entering the dispatcher control is passed to RESRTN. 

This routine will restore the communications region or 
scratch area for FORTRAN _i_f a FORTRAN program has just 
terminated. If no other FORTRAN programs have their data 
stored no action is taken and the scratch area remains the 
same. If the program which just terminated was not a 
FORTRAN program no action is taken. 
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If the dispatcher determines the highest priority program 
is on the scheduler thread control is passed to SAVE. If 
the program to be executed is a FORTRAN level we must save 
the FORTRAN scratch as described abover otherwise? control 
is returned to the scheduler operations. 
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b.O COMPLETE REQUEST FOR DRIVER ROUTINE 



b.l SYMBOLS 

COMPRCJ Entry Point 
b.S FUNCTION 

The functions of this subroutine are to initiate completion 
requests to the Scheduler for threaded I/O requests and to 
perform other housekeeping details upon completion of an 
I/O action by an I/O device driver. 

b • 3 ENTRY INTERFACES 

COMPRCJ is entered via a return jump with the physical 
device table address for the device in I- 

b.4 EXIT INTERFACES 

The contents of the I register are not disturbed. The 
contents of the A* CJ and Overflow registers are destroyed. 
Interrupts are enabled. f ^ 

b-5 INTERNAL DESCRIPTION 

The routine is entered from an I/O device driver via a 
Return Jump to COMPRCJ. Interrupts are immediately inhibited. 

The Diagnostic Clock cell in the Physical Device Table is 
set idle. 


For logical units which do not share devices* the completion 
address* if not zero* is scheduled with the error field 
from Word T of the Physical Device Table replacing the V 
field of the I/O request parameter test. If the call was 
a system directory request the V field is not stored in the 
parameter list since the system directory entries do not 
have a V field. Bits 14 and 15 of Word 6 in the Physical 
Device Table are set to 'zero 9 and an indirect secondary 
scheduler call is made. The request parameter list* which 
contains a request code designating it an I/O call* is 
flagged as a secondary schedular call by setting bit 15 
of the first word {field 1} to v one. v The scheduler later 
resets it to v zero. 7 The device is not released from its 
logical unit assignment. 
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EXAMPLE: 

Indirect call in COMPRd 

54F4 

C001 

points to I/O call which is now a secondary scheduler 
request : 

4000 54F4 

flflOS Bit set by COMPRflr cleared after SCHEDU threads 

5010 This address scheduled. request- 

5000 

OOOfl 

001b 

1000 

If the completion address is zeroi the thread word of the 
request is cleared and no address is scheduled. 

For logical units which share devicesr completed requests 
are treated like requests to ordinary logical units. The 
device is then assigned to a pseudo logical unitr SFFFF 
{see section 7.4>. 

The subroutine exits to the location following the return 
jump which called it. 
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7.0 FIND NEXT REQUEST FOR DRIVER -CFNRI 


7.1 FUNCTION 

The function of this subroutine is to find the request 
which should be processed next by a driver for a device. 

FNR also stores the information in the physical device 
table concerning the request that is common to all drivers. 

7.2 ENTRY INTERFACES 

FNR is entered via a return jump to entry point FNR with 
the physical device table address in I. 

7.3 EXIT INTERFACES 

If there are no more requests for action by a dev ice r the 
subroutine returns to the driver at call +1. The device 
has been made unassigned by storing a zero in word S IELUJ 
of the physical device table. 

If FNR has found a request it returns to the driver at 
call +2. The I register is undisturbed. The A & <3 registers 
are not restored. The following information has been stored 
in the physical device device table by FNR: 

1. Operation in progress bit is set in word 8. 

2* Address of the 1/0 parameter list is set in word t>. 

3- Word S -CELU3- remains assigned to the same logical 
unit or to a logical unit which shares the device. 

4 • Words 10 and 11 contain the first word address and 
the last word address +1. 

5. Word 1 -Cswitch word> is cleared except for the mass 
memory bit {if set! and bits 0 and 1 which indicate 
whether the type of operat i on is ASCII or binaryr 
formatted or unformatted. 

7.4 INTERNAL DESCRIPTION 

For logical units that do not share a device» FNR examines 
the thread in the L0G2 table associated with the logical 
unit {L.U- assigned by Rlil before it schedules the driver! 
to obtain the next request. If there are noner FNR exits 
to ca I 1 +1. 
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The top request on the L0G2 thread is removed and its 
parameter list addressr the first word and last word +1 
addressesr the operat i on- i n-progress bitr and the type of 
operation bits are stored in the physical device table. 

Exit i s to ca 1 1 +2. 

If the request was a system directory I/O call {request 
code of zerolr the first word and last word +1 are computed 
from the system directory entry. The type of operation 
bits are not set. Exit is to call +2. 

If the device is shared by several logical unitsr the 
COHPRdJ subroutine has set word 5 {ELUI of the physical 
device table to $FFFF. Upon finding that a device is 
assigned to $FFFFr FNR searches the L0G1A table for the 
highest priority {i.e. the lowest number! which requires 
the available device- klhen a logical unit with a waiting 
request is encounteredr FNR places the device into operat i on 
in the same manner as for unshared devices. This provides 
sharing of devices by severa 1 user routines. Howeverr once 
a request to a device is started it will be completed before 
a request of higher priority to the same device can be 
i n i t iated- 
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fl.O ALTERNATE DEVICE HANDLER 
fi.l Function 

The Alternate Device Handler is responsible for processing 
i rrecoverab 1 e errors for many of the drivers. 

Upon entry » it determines whether the device has an operational 
alternate. If an alternate exists> the request for the 
failed device is assigned to the alternate and the operator 
is notified of the switch-over- This re-ass i gnment is done 
at a high priority level. However, if no alternate exists, 
the program reschedules itself at a low priority to request 
operator intervention- In either case, all message output 
is executed from a low priority section of the program. 

The Alternate Device Handler continues to assign alternate 
to failed devices without waiting for completion of its 
message 1/0* This requires that the table ALTERR be provided 
to store the error words in for processing by the low priority 
sect i on • 

A 

fl. 2 Entry Interfaces v 

Entry is made via a jump to the entry points DEVERR, ADEV, 
or ALTDEV . These names are equivalant and can be used 
i nterchangeab 1 y • On entry Q should contain the following 
i nf ormat i on : 

Bits 0-5 Error code 

0 - timer expired 

1 - reject 

2 - a 1 arm 

3 - parity error 

4 - checksum error 

5-X - other error codes as defined for driver 

Bits b-15 Logical Unit Number associated with the 
the requested device. 


NOTE: The logical unit number in the error word is formed 

by the driver of the device using the device^s ELU word from 
the PHSTAB- Since the RbJ and FNR routines store the requested 
logical unit number in ELU, the L-U. in the error word 
reflects the L-U- whose request is being processed by this 
device when it fails and not necessarily the L-U. assigned 
to this device. 
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e-g.r if the device assigned to L-U- 2 has failed previously 

and L • U - fl is the alternate of L-U- 2: 

1- The error word will contain L-U- 2 if L-U- fl was processing 
a request for L-U- 2 when the device failed. 

2- The error word will contain L-U- 6 if the device failed 
while processing a request for L-U- fl. 

fi-3 Entry Symbols 

ALTDEV 

ADEV Alternate Device Handler Entry from Drivers 

DEVERR 

ALTSUB Find Alternate Logical Unit Subroutines 

CONVER 

CONVRT HEX to ASCII Conversion Subroutine 

fl-M Externa I Symbols 

JBCNCL Core resident program which causes the JBKILL 

module of the job processor to be executed- 

JOBIND A location in the TRVEC module which is non- 

zero if job processing is in progress- 

ALTERR A table used to save the error word in case 

several failures occur at one time- This 
table is included in the System Tables and 
Parameters program and is of the form: 




ENT ALTERR 



ALTERR 

ADC NUMLU 

BZS {NUMLU} 

ALTDEV ERROR TABLE SIZE 
SPACE FOR {NUMLU} 
SIMULTANEOUS FAILURES 

L0G1A 

L0G1 

L0G2 

Logical 

Unit Tables 
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Logical Unit Number of the Dummy Device 
Dr i ver . 

Included in the System Tables and parameters 
program as an E(3U entry. 

e.g.r EOU DUMALT -CSDA-L0G1A} 

ENT DUNALT 

If the Dummy Driver is not present r set to 
zero 

e.g. r EdU DUNALT -COT 
ENT DUNALT 

and remove the entries from the L0G1A. LOGEh 
and LOG! tables. 

Entry in the Nass Nemory Driver Control program 
It will check if any mass memory drivers a^e 
waiting to use core. 

8-4 Initial Operations 

The Alternate Device Handler is entered at the priority 
of the driver, or at the level specified if scheduled into 
operation. The latter method is used if the driver must 
continue after calling the Alternate Device Handler. In 
either case the Alternate Device Handler reschedules itself 
at a high priority level determined by the symbol LEVEL* 

LEVEL should be equated to a value one greater than the 
highest pr i or i ty of any driver using the Alternate Device 
Hand I er . 

A check is then made for space in the error word table. 

If the next location in the table is not empty fi-e.. zero! 
the size of the ALTERR table is not large enough. This error 
is i rrecoverab 1 e and the Alternate Device Handler will hang 
in a loop- 

8.5 Operat i ons When No Alternate Exists 

The low priority section INOALT} is scheduled at level 4 and 
the error word is stored in the ALTERR table* Exit is made 
to the dispatcher. 
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A-t Operations when the failed device is an alternate or Has an 
alternate 

If the requested L-U- specified in the error word is a I ready 
down* a search is made for the alternate that actually failed 
and that L-U- is stored in the error word- The failed L-U- 
is then marked down and made a shared device -Ci-e-* bits 13 
and 14 of L0G1 are set = 1} and a check for an operational 
alternate is made- 

If no alternate of the failed L-U- exists* the L0G1 entry of 
the failed L-U- is restored to what it was on entry to ALTDEV- 
The low priority section is scheduled* the error word is 
stored in ALTERR* and exit is made to the dispatcher. 

If an operative alternate of the failed L-U- is found, the 
request is rethreaded to the LOGE thread of the requested 
L-U- The ELU word of the L-U- that actually failed is 
cleared and the operational alternate is made a shared device 
•Ci-e-* bit 14 of L0G1 is set = !}• 

A search of the ALTERR is made and if the error is a 1 ready 
in the table the error word is cleared fi-e-, set to zero}- 

If the operative alternate device is not busy li-e-* ELU 
word = zero}* the alternate 11 s driver is scheduled via its 
PHSTAB and made busy by storing the requested logical unit 
number in the alternated ELU word. 

Then the low priority I/O section INOALT} is scheduled if 
not busy and the error word, if not zero* is stored in the 
ALTERR table and exit is made to the dispatcher- 

EXAMPLE: On entry to ALTDEV* if L-U- A failed while 

processing a request for L-U- E the error word and L0G1 
entries would look like this -CL-U- b is the alternate of 


L-U- A> : 

IS 


bS 

0 

ERROR WORD 

S 

error code 


4 

14 

13 



** 0 

LU E L0G1 


1 

1 


A 


AA 3777 


PRINTED IN USA 




CONTROL DATA CORPORATION „ 

30DD/1700 Systems & Development DIVISION MAR 5 1971 


DOCUMENT CLASS —JUS 

PRODUCT name 1700 Operating System 
PRODUCT MODEL NO EP0b"3-0 


PAGE NO. 


MACHINE SERIES 


1700 


fl-S 


LU a L0G1 


LU b L0G1 


IS 13 =1 0 



i 




14 

13 

T 0 

L 

_ 






On exit from the high priority section of ALTDEV? the 
entries will now look like this: 


IS bS 0 


ERROR WORD 

a 

error code 



14 

13 



□ 

LU 2 L0G1 

□ 

Gj 

ill 


a 


LU a L0G1 


LU b L0G1 


m 13 t o 



i 

1 


b 

m 

14 

i 1 

13 

1 i 

=1 0 
i 1 


1 



The request has been rethreaded to L-U- 2 L0G2 thread and 
the ELU word in the PHSTAB of L-U- b will contain L-U- 2 
-Cif the L-U- b driver was not busy>- 

a.? Low Priority I/O Section -CN0ALT} 

All I/O requests are executed in this section at priority 
level 4 - This allows several alternates to be re-assigned 
even before the first message has been output- The NOALT 
section picks up one entry at a time from the ALTERR table? 
processes it? and then returns to process further entries 
until none rema i n in the ALTERR table- At this time NOALT 
clears its busy flag and exits to the dispatcher. 

Each error word from a driver to ALTDEV is stored in successive 
positions in the ALTERR table- When the top of the table is 
reached the indexes are set back to the bottom of the table- 
If the next location in the table is not empty li-e-? zero! 
the size of the ALTERR is not large enough. 


NOALT informs the operator of errors and interrogates the 
operator for guidance when there is no alternate available- 
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If an operative alternate existsr the following message 
results: 


Lrnn FAILED ee 
ALT t mm 


If no alternate is assignedr the following message results: 

L*nn FAILED ee 
ACTION 


followed by an input request to allow the operator to specify 
the action to be taken. 


nn = Logical unit that failed 
ee = Error code passed from driver 
mm = Logical unit of alternate 


Idee i ma I > 
Idee ima I } 
Idee i ma I } 


All Input/Output is via the Comment Device- 


If the input request following the ACTION message is completed 
with error i nd ication {e-g-r a timeout occurred} then the RP 
option is assumed. The ACTION and input request cannot be 
repeated otherwise the ALTERR table may be filled with error 
word entries correspond i ng to the input comment device 
fa i I ure . 


If no alternate exists the operator is requested to specify 

further action. His options are as follows: 

RP Repeat the request - the current request is 

rethreaded and the initiator portion of the 
driver scheduled. 

CU Continue - the completion address is scheduled* 

the error is reported to the caller and the 
driver initiator rescheduled- 

CD Continue and mark the device as ^down' 7 . This 

option causes all completion addresses for 
requests in the queue to be scheduled with 
error indicators in <3- In addition* the device 
is marked ^down' 7 by setting bit 13 in L0G1 
table- This results in scheduling completion 
addresses with error codes for any subsequent 
request for this device. 
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a. 7 



DU Delete the job - if job processing is not in 

effect this option will cause repetition of 
the action request printout". If job processing 
is in effect. the job processor job cancel 
entry is scheduled at level two. All the 
actions of the CU option are then executed. 

"Job processing is not in effect when LIBEDT or RECOVERY 
modules are in control. 


DD Delete the job and mark the device as v down^. 

This action will result in a repeat of the 
action request printout if job processing is 
not in effect. The job processor job cancel 
entry is scheduled at level 3. All the actions 
of the CD option are then executed- 

a* c l Subroutines 

ALTSUB is the subroutine used to find the operational 
alternate for a given logical unit- The logical unit is in 
Q on entry and if this logical unit is operat i ona I {not 
marked down} then Q returns unchanged- Otherwise. Q w i 1 1 ; f v \ 

be set to the logical unit of the first operational alternate^-^ 
assigned. If no alternate is assigned £? will be zero. If 
the only alternate is the device that just failed, then (3 
will be set to DUflALT on return- The value of DUNALT is 
either the logical unit of the Dummy Driver or zero, and is 
set at In i t i a I i zat i on . {See 6.4} 

The ALTSUB subroutine is called from the f o 1 I ow i ng programs : 

RW Read-Write Request Processor 

FNR Find Next Request Subroutine 

Note that ALTSUB allows alternates to be assigned in a 
circular arrangement 

e.g.. L • U • b — >7— >6 

CONVER {=C0NVRT} is a hexadecimal to ASCII coded Decimal 
conversion subroutine. The hexadecimal value in A is 
converted and returned to A. It is restricted to a maximum 
of two decimal digits {i-e-. and is used to convert 

the logical unit and error code for printout- The subroutine 
is re-entrant and may be used by other programs . 
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fl-10 Dummy Driver 

If a device fails and no alternate is available? the dummy 
device can be assigned as the alternate- This causes the 
Dummy Driver to be scheduled via the Dummy Equipment Table- 
The Dummy Driver picks up the request using the FNR subroutine 
and sets the error field in the request. Then the logical 
unit that failed is restored by clearing the ^device down^ 7 
bit in the L0G1 logical unit table- Finally the CONPRCJ 
subroutine is entered to complete the request and then returns 
to the Dummy Driver Initiator to re-enter FNR and process 
any further requests on the thread. 

The Dummy Driver allows a user program to make an I/O request 
and ensure that the completion address will be scheduled 
without requiring operator intervention. Otherwise? the user 
program could be suspended indefinitely. The user program 
must check for I/O errors at the completion entry and take 
appropriate action if an I/O error occurred -C i . e • ? if (315 = 1}. 

The Dummy Driver and Dummy Equipment Table must be included in 
the System Tables and Parameters Program if this feature is 
required. A logical unit entry must also be assigned to the 
Dummy Driver in the logical unit tables? L0G1A? L0G1 and LOGS- 
This logical unit number can then be assigned as the 
alternate in the L0G1 entry for the logical units that have 
no other alternates. See section 3.13* 

DUNALT is the logical unit number assigned to the Dummy. If 
the Dummy Driver is not included DUNALT should be equivalenced 
to zero. DUNALT is assigned as the alternate when all 
alternates are marked down such that the failed device is 
assigned as its own alternate- 

The dummy may also be used as the alternate for the comment 
device. Comment device failures are not recoverable unless 
an alternate is assigned for the comment input device- 
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=1.0 MAKE Q FOR DRIVER ROUTINE 
=1.1 SYMBOLS 

MAKtf Entry Point 
5 FUNCTION 

The functions of this routine are to determine if a short 
read and/or a device error occurred during the drivers 
operations. If either of these conditions has occurredr 
MAKd will set the proper bits in Word =i {switch word! of 
the physical device table- The COMPRG? subroutine uses 
these bits to form the V field of an I/O call {see section 
L.5>. 

=1.3 ENTRY INTERFACES 

MAKfl is entered with the address of the return to the driver 
in the A register and the physical device table address of 
the device in the I register. 

=1 • M EXIT INTERFACES 

The contents of the I register are not disturbed- The 
contents of the A and Q registers are destroyed. 

=1.5 INTERNAL DESCRIPTION 

On entry the return address of the driver is stored in the 
physical device table and the <3 register is cleared. 

A test for a short read is made by comparing the last 
location read {'’core 9 address! to the last word address 
+1. Iff before exiting to MAKtf* the driver was expecting 
the next character to be a lower character* the "core 9 
address is incremented by one before the short read test- 
This is necessary because the driver does not increment the 
9 core 9 address until the lower character is received. If a 
short read condition exists* bit 14 is set in the Q register. 

A check is then made for a device error condition and if 
true* if the the device was not ready. Bits 15 and/or 13 
are set reflecting these conditions. 

The final content of the Q register is stored in word =1 
{switch word! of the physical device table and exit is 
made to the return address. 
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io.o common 

10.1 External Symbols 

ALLIN - Entry point of CONHON 

10. 2 Function 

This program saves the A » I registers along with the 
return address and priority level prior to an interrupt* 

It adds this information to the interrupt stack and sets 
the mask register with a new mask and sets the new priority 
lever in the current priority level cell. 

10-3 Entry Interface 

This program is entered by an indirect return jump thru 
location $FE. This locore location contains the address 
of the entry point ALLIN- 

10-4 Exit Interface 

This program exits to the interrupt processor chosen in 
the 4th word of the trap location for the line that has 
interrupted. 

10-5 Internal Description 

Upon entry the top of the interrupt stack is found and 
(2 t Ar Priority level > I are stored in the stack the address 
of the interrupt processor is determined and the return 
address is picked up and saved in the stack- The new 
priority level is determined from the trap region and put 
in location $EF • The new mask is found and put in the mask 
register. An exit jump is made to the processor chosen 
by the trap area. 
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11-0 NIPROC 


11.1 External Symbols 


IPROC 

IP1 

TBLE 

JOBIND 

SWTCH 

TiriACK 

IPR0C1 

PARITY 


Entry point to IPROC 

Address constant of IPR0C1 

Used for HEX to ASCII conversion 

Used to see if job processor is in core 

Used to lock out job processor while LIBEDT 

or Recovery in core 

Used to acknowledge timer interrupts 
Processor in protect errors 
Processor for parity errors 


11.2 Function 


The function of the i nterna I interrupt processor is to 
handle internal interrupts on line zero caused by parity 
errors in memory, memory protect errors and power failure 
cond i t i ons • 


11-3 Entry Interface 

NIPROC is entered upon an interrupt of line zero- Its 
address is contained in the fourth word of line zeroes 
trap • 

11. M Exit Interface 

Exit from IPROC depends upon the error condition that 
caused the interrupt. Protect errors exit to IPR0C1 which 
is the protect processor. Parity errors cause a branch 
to PARITY which is a user supplied module to process 
parity errors. If this module is not present the computer 
is hung in a SlfiFF loop. For power failure errors the 
computer is hung in a $1AFF loop until power returns at 
that time a EXI instruction is executed which returns 
control to the P+1 instruction is executed which returns 
control to the P+1 interrupted address. 

11. S Internal Description 

After entry to IPROC a protect fault is tested for if a 
protect fault is found a jump to IPR0C1 is made- If no 
protect fault is found a parity error test is made if no 
parity error is found a power failure is assumed. The 
contents of the registers are saved and a jump to the 
power failure routine is set up at absolute location 0 
and 1. When a power failure occurs the user master clears 
and hits the run switch, location 0 and 1 are executed 
giving control to the power failure routine which in 
turn exits the interrupt state through the return address 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 

3D00/17D0 Systems & Development DIVISION 


MAR 5 1971 


DOCUMENT CLASS IMS 

PRODUCT name 17D0 I1S0S 

PRODUCT MODEL mo EOOb" 3.0 


PAGE NO jfi hl 


MACHINE SERIES 


170D 


12. □ External Interrupt Handler -CEPROO 

12.1 Program Function 

External Interrupts are handled by this routine. There 
are three conditions that can exist on an interrupted 
line. They are as follows: 

1. The line is connected to devices controlled by the 
Operating System; i.e.» they appear in the system 
equipment table. 

2. The line is connected to devices not controlled 
by the Operating System. 

3. The line is connected to devices» some of which are 
controlled by the Operating System and some of 
which are not. 

12.2 Internal Description 

Upon entrance to ^EPROC^ the ^I' 7 register contains the 
slot location through which the interrupt came- This 
location is changed to a line number from which the 
number of devices on this line can be found. If no 
devices are present , a check is made for the secondary 
processor • 
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If devices are present » the logical unit number of the 
first device is found. The number of devices is stored 
in the I register and volatile storage is called. Only 
three words are saved; they are (2, A and i where: 

<2 Line number interrupted 

A Logical unit number of first device on line 
I Negative number of devices on line 

Each device is checked in turn for having the interrupt 
status set- When one is found, the continuator address 
is set in the (2 register of volatile storage. Volatile 
storage is released and a jump made to location specified 
in the Q register. 

If no devices on the line interrupted, volatile storage 
is released and a secondary processor is checked for being 
present. If one is present, control is passed to it; if 
not, the ghost interrupt message is scheduled, and control 
is returned to the dispatcher. 

The ghost interrupt message prints GI {line no-} where 
line no. is a hexadecimal number. Upon completion of 
the printout, control is returned to the dispatcher. 


IE. 3 Entry Interfaces 

EPROC Entrance to External Interrupt Handler 

I set to slot location through which interrupt came 

IE-4 Internal Entry 


PRINT Prints ghost interrupt error message 

GI {line number in hex} exits to dispatcher 


IE. 5 External References 


SECPRO 

L0G1A 

L1-L15 


Secondary Processor Table 

Table of logical units determines 

number of units on line 
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13.0 Volatile Storage Handler 


13.1 Internal Symbols 


VOLBLK 

VOLATL 

VOLEND 

OVFVOL 

ZERO 

V <3 
VA 

VI 


Volatile storage block starting address 
Current address of entry into VOLBLK. Located 
in the communication area. 

Address of the location following the volatile 
storage block. 

The entry name of a module entered in case of 
volatile storage overflow. 

A communication area cell containing zero. 
Index for saving users <3. 

Index for saving users A. 

Index for saving users I. 


lb. 1.1 Entry Symbols 


VOLA - Allocate volatile. 

VOLR - Return volatile previously allocated. 


13. E Function 


A block of core. VOLBLKr is reserved in the system tables 
module for assignment to users as volatile storage. This 
block is handled by the subroutines VOLA and VOLR. 

13.3 Entry Interfaces 

The calling sequences to allocate a block ot n words is: 

RT J VOLA Execute with interrupts inhibited. 

NUf1 n Parameter N follows the RTJ. 


The calling sequence to return a block is: 

RTJ VOLR With I containing the address of the block 

returned, and interrupts inhibited. 

13-3.1 Entry Conditions 

The interrupts must be inhibited. 

When entering VOLR. V I^ must contain the address 
of the block to be returned. 
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Upon exit from VOLAr the registers Ar d and I will be 
saved in the volatile block. I will contain the address 
of the allocated area- VOLATL will be incremented by nr 
the number of words requested. The format for a block of 
volatile storage is shown below. 


□ Q saved 

1 A saved 

E I saved 

n words 3 {Open! 

4 {Open! 


I upon return points here- 


n-1 

The minimum size of a block of volatile is three -C31 words- 


Upon exit from VOLRr the registers A , Q and I will be 
restored from the volatile storage. VOLATL will point to o 

the entry just returned. Once volatile has been returnedr ''O' 

the contents of the volatile block are no longer reliable- 

1 3.5 Internal Description 

VOLA handles the allocation of the volatile storage. When 
it is enteredr the registers Ar <3 and I are saved in the 
allocated area- The top of the volatile stackr VOLATLr is 
incremented by nr the number of words allocated. 

If the stack overflowsr control is given to the common 
overflow handlerr OVFVOLr to take the appropriate shutdown 
or recovery actions. Control is not returnedr if overflow 
occurred- 

VOLR handles the return of allocated volatile storage. On 
entry the I-register must point to the core being returned. 

The I-register is simply stored into the top of the volatile 
stack. Ar Q and I contain the initial contents -Cupon entry 
to VOLAJ on the return. 

13 •b Limitations 


All users of volatile storage must conserve the address 
of the allocated volatile* Entry must be made under 
lockout. At least three 131 words must be requested. 

Once volatile has been returnedr the contents of volatile 
are no longer rel iable. 
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1-17 User Instruction 

The volatile block is assembled with the system tables 
module. Enough must be allocated so that the maximum 
amount required for any level will be available. 

13. a OFVOL 

If the volatile overflow module I0FV0L1 is presentr in the 
event of an over subscription of volatile storager it will 
clear the maskr type V 0V V and hang in a one cell loop. If 
the volatile overflow module is not presentr then a jump 
to 7FFF will occur with unpredictable results. 

1 3. a«l Entry Point 

OFVOL 
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14*0 Hon i tor Entry and Exit for Requests 


14. 1 Internal Symbol Definitions 

VR Relative location in volatile containing the 

user progranv's return address. {Equals 3} 

VPTR Relative location in volatile containing the 

pointer to the user program's parameter list {SI. 

ZERO A location in the communication region containing 

a zero {$22}. 

ONEBIT The first location of a table constructed so that 
entry n contains 2 n . This is normally $23. 

RCSCHD The code for the scheduler request {'ll* 

LPHSK The first location of a table constructed such 
that entry n contains H n -1* This is normally 
location 12. 

VTMP Relative location in volatile containing the 

request code {<>}. 

AMONI A location in the communication region containing 
the location of this program. This is normally 
location $F4. 

V The number of words ot volatile allocated per 

request {fi}. 

AREdJXT A location in the communication region containing 
REflXT {request exit>. This is normally $B C 1. 

HONI The subroutine entry point to the Request Entry 

Processor. 

RCTV Tg through Tqg* 

RE(3XT Common exit for monitor requests. 

AVOLA Equated to $BB {address of volatile!- 

AVOLR Equated to $BA {address of release volatile}. 

14.2 Program Function 





User programs generate requests for various functions such 
as I/Or core allocationr and scheduling. All of these 
requests are processed by the Request Entry Processor {REP}. 

Its function is to reserve volatile storage? save the registers 
Af ( 3 1 Pr and I in volatile storage? and give control to oae 
of the request processor routines 7o-*-T^g? depending upon 
the request code? RC? in the user's calling sequence. 

^4.3 Entry Interface 


Entered from protected programs as a result of a monitor 
call. Entered from unprotected programs via IPROC {Chapter 
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IH-M Exit Interfaces 

The Request Entry Processor gives control to the request 
processorsr Tg through Tgg* with specific information in 
the registers. Each request processor upon entry can assume 
the following: 


REGISTER 


CONTENTS 


A 


<3 

I 


A 14 _ d is the location of the 
parameter list. If A]^ = Or 
then the reference to the 
parameters in the call was 
direct. Otherwise* Ais = 1* 
and the reference was indirect 
■Can INDIR request}. 

Absolute address of the request 
processor being executed. 

I contains the location of an 
eight -Cfi} word block of 
vo 1 at i 1 e storage . 


Locat i on Mnemon i c 


-Cl} 

+ 

0 

V (3 

-Cl} 

+ 

1 

VA 

-ci} 

+ 

3 

VPL 

-Cl} 

+ 

3 

VR 


■Cl} + 4 VI 

■Cl} + S VPTR 

■Cl} + b VTDS 

-Cl} + t VTMP 


The user-'s (3-register is saved 
here . 

The user-'s A-register is saved 
here . 

Not set by the Request Entry 
Processor. Intended to hold 
the request priority level* 

The return address of the user. 

If this was an indirect call* 
then the return address has 
been incremented by one -Cl} 
to give the correct return address 
Otherwise, this was a direct call 
and the return address must be 
adjusted by the request processor- 
The user^s I-register is saved 
here. 

The location of the user^s 
parameter list. This is in the 
accumulator A. See discussion 
of A above* 

Not set by the Request Entry 
Processor- It is intended to 
contain the top of the stack 
for the desired logical unit. 

A temporary storage cell containin< 
the request code* RC. 
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Return to Requestor 

Control will be returned to the next instruction 
with the registers Ar Q, and I restored. Overflow 
will not be saved. Interrupts will be enabled and 
the priority level will be the same as upon entry. 


PAGE NO 14jlJ_ 


( 




l 1 *. 5 Internal Description 

The Request Entry Processor handles all monitor requests 
made by the user program. The user enters the Request 
Entry Processor via an indirect return jump to MONI. The 
Request Entry Processor inhibits all interruptsr saves the 
user^s registers <2 , A, Ir and return address in an area 
unique to this requestr and then enables interrupts. The 
Request Entry Processor is re-entrant beyond this pointr 
and works only with the data area unique to this request* 

The I-register is used to hold the address of this unique 

area which is called volatile storage- The location of 

the parameter list is then stored in volatile. If this 

request has an indirect reference to the parameter 1 istr 

the return address to the program is adjusted to return <r ^ 

control to the next sequential instruction. If this 

indirect call was made as the result of the completion of an 

I/O operation the registers are adjusted to make this look 

like a scheduler call since the request code in the user^s 

request parameter list may not be altered. Control is then 

given to the request processor specified by the request code. 


lM-b Restrictions 


The I-register must be conserved throughout the request 
processor called since it contains the address of volatile 
storage. Each request processor must be re-entrant since 
it runs at the requestor-'s level- When each request 
processor finishes it must return the volatile core storage 
by jumping to REC3XT . 

Labe 1 Op Address 

JflP- {AREC5XT} Address of request exit. 

REQXT is contained in 
AREflXT. 

NOTE: The "MINI MONITOR REQUEST ENTRY* is identical in 

every way with this module with a single exception: It 

is equipped to handle only 13 requests. 
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14.7 Adding Requests 

When adding requests with codes larger than 13 consult 
the chapter dealing with the protect processor for 
necessary changes. 
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15*0 Processor for READ. WRITE Format READr Format WRITE 


IS. 1 Entry Interfaces 


The Request Processors -CT1. T2. and Tbl are entered from 
the Request Entry Processor with the At <2 and I Volatile 
set up as shown below. 


Reg i ster Contents 

A A14-0 is the location of the parameter list. 

If A15=0» then the reference to the parameters 
in the call was direct. Otherwiser Al5=l' and 
the reference was indirect. 


<2 Absolute address of the request processor being 

executed. 

I I contains the location of an 8-word block of 

vo 1 at i 1 e • 

Vo 1 at i 1 e Storage Mnemonic 


■CI> + □ 
III + 1 
-til + 2 
III + 3 

•CI> + 4 
III + S 

■CIJ + b 
m + 7 


V <3 Q saved by Request Entry 
Processor • 

VA A saved by Request Entry 
Processor • 

VPL Used to hold request priority 
1 eve 1 • 

VR P-register saved by Request 

Entry Processor. If indirect 
a I I r P is already incremented 
by 1 for proper return address- 

VI The I-register saved by REP. 

VPTR Used to hold the user^s para- 
meter list location. also in 
A above. 

VTPE Used to hold the preceding 
thread location. 

VTMP A temporary used to hold 
logical unit number- 


IS. 2 Exit Interfaces 

Exit to the Driver: 

The driver will be scheduled, if the device associated 
with this logical unit is not busy. The Q register upon 
entry to the driver initiator will contain the location 
of the physical device table entry for the device- 
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Exit to the User: 



15 . d 


The request processor returns control to the REcJXT where 
the volatile storage is released and control is returned 
to the cal ler. 


Upon return to the user, the registers Ar I and d?m-o will 
be restored. If <3 1 5 = 1 » the thread location in the parameter 
list is not zenoi implying that this request is already 
on some other thread. In this case, no action will be 
taken on this call- This action is apparent on I </ to 
protected callers. 

Scheduling of the Completion Address, C 


Control will be returned to the Completion Address C at 
level CP when the 1/0 requested has finished or if the 
device is down and no alternate exists. A message will be 
typed in forming that the unit is down. <3 will :ontain 
word 3 of the parameter list. The high order bits of Q 
will contain the error code V. 


Internal Description 




Requests are threaded onto the logical unit according to 
Request Priority. l f the associated device is not 
assigned to a logical unit and is operational, the driver 
for the device is called- or, if the device has failed 
and has no alternate, the completion address is schedule- 1 
with an error code indicating fa i I ure returned to the 
completion address. Subroutine a TSUB. in the Alternate 
Device Handler. Section i’.n, is jsed to obtain the 
alternate logical unit if required. 


NOTE: The "MINI" RU PROCESSOR" module is identical to 

this module. If the "MINI ERROR 'R0CESS0R" module is 
used, ALTSUB simply returns to the caller- 


1 5 . 4 Request Code Zero 


The zero request code is used to cau 
which result from SCHDLE requests 
storage resident program is schedule 
processor passes the system direc or 
processor for allocation of space 
then passes the system directory , nt 
to effect a transfer of the program 
The apparent request code carried in 
entry is zero. 


se mass storage reads 
F or example, if a mass 
d, the SCHDlt request 
y entry to t h e SPACE 
‘ r he SPACE processor 
ry to this processor 
from mass storage- 
the system directory 
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it.o space! 

- RELEAS# SWAPPING AND 

RESTART 


lb-1 (GENERAL BACKGROUND 


Many modules are non-res i dent # i-e-r they are not kept in 
core. Therefore# when they are operated# it is necessary 
to read them in from the library. There is an area reserved 
for this purpose# the size of which varies from system to 
system. Each non-resident program# prior to operation# must 
be assigned space in this area and read into it. Similarity# 
when a non-resident program completes its function# it must 
cause the area allocated to it# to be restored to the block 
of empty space available for allocation to other non-resident 
programs. The SPACE and RELEAS requests deal with these 
operat i ons • 


Scheduling a mass memory resident system directory program 
causes the following operations to be executed. 


1* Space is assigned in the allocatable core area. 

2. The program is read into core from mass memory. 

3- The starting address of the program# i.e.# the start 

of the assigned core area# is scheduled at the requested 
pr ionity - 

All mass memory resident system directory programs must be 
written to be 9 run anywhere* {using relative addressing# 
etc-> since the program may be assigned different core 
areas on successive operations. 


If it is necessary to allocate space in the non-resident 
area and insufficient space is available# it may be possible 
to pre-empt that area of core used for job processing. The 
procedure involved is called swapping. 

Restart is the initial procedure followed from a dead start 
condition. For purposes of allocating core space in as 
simple a manner as possible# the area to be allocated is 
treated as an I/O device. This pseudo device is operated 
by a pseudo controller {the core allocator} which is 
operated via a driver {DRCORE}. The SPACE and RELEAS 
requests take the place of READ and WRITE requests in this 
situation* In order for this operation to work smoothly# 
the pseudo device is always considered to be logical unit 
*1. This is true for all systems. The modules to be dis- 
cussed in this chapter are: 

CORE ALLOCATOR 

DRCORE 

SPACE REQUEST PROCESSOR 
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lb. 2 CORE ALLOCATOR 



lb. 2.1 External Symbols 

LVLSTR Level start table 

LEND Level end 

CALTHD Core allocator thread 

lb. 2. 2 Internal Symbols 

MINSIZ Minimum allocatable area {assembled 

as 2> 

MAXN0 Largest single precision positive 

number 


lb .2.3 Function of the Program 


The Core Allocator module allocates core to program 
which are mass memory resident. It also allocates 
core to programs which require additional temporary 
working area at execution time* 


The Core Allocator is required in the monitor on 
all systems which have a mass memory used for 
program storage- 



The Core Allocator accepts returned areas of core 
and? if possible? combines the returned area with 
adjacent areas. 

Requests for core allocation are stacked by request 
priority and core is allocated on a priority basis, 
i.e.r the higher priority programs have access to 
more of the allocatable core- 


lb. 2-4 Comprehensive Program Description 

The Core Allocator threads together all the pieces 
of available core memory. Initially there is one 
piece of core which is the entire area. As 
allocations are made? the available area gets broken 
up into many pieces. As pieces are returned? they 
are regrouped into as few pieces as possible. 


lb* 2- 4.1 Organization of Core 


Total core memory is diagramed in Figure 
It is divided into three parts: Part 1} 
the core resident programs constants; 

Part 2> the allocatable area; and Part 3> 
unprotected core- 


O 
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Part E is allocated by the core allocator 

according to the request priority in the 
parameter list- A fixed amount of the 
available core is available to each priority 
level. As shown in Figure lr higher 
priority levels have access to more of the 
core than lower priorities- This has the 
effect of guaranteeing that many low priority 
programs cannot use an area set aside for a 
high priority program. An area can always 
be available to a higher level by restricting 
the area available to lower levels. The 
core allocator also selects the core from 
the smallest available piece- This has the 
effect of minimizing the number of pieces 
of core that are too small to be usable- 
The technique uses the small leftover 
pieces first while leaving the big pieces 
for future requests. 


CORE 

| ALLOCATABLE 

AREA 


'~T 

UNPROTECTED 1 

RESIDENT 

i 

} 

K 

-1 eve I 

04 

CORE 1 

PROGRAMS 

K 

1 eve 1 

1 

— > 


AND 






DATA 

K LEVEL 

14 





i / i fvfi 15 



V 


- - 

| \ LL V LL JU J 11 



7 



TOP OF CORE AVAILABLE 7fff 

TO THE ALLOCATOR 


FIGURE 1 
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Core Memory is initialized as follows: 


TOP OF THREAD 


CALTHD 






AVAILABLE! 
CORE 


UNPROTECT 
CORE 


ED 


Length of core 
End of thread 


: 0 *\ 
■ , • ] 

'v> 


FIGURE S 

Individual pieces of allocated core are oganized as shown in 
Figure 3- 

The core allocator stores two control words into the allocated 
core area- The first wordr located at V A-5 V always contains the 
requested length Nr plus E» and represents the actual length 
of the allocated area- The second wordr located at A-lr always 
contains the address of the arear A- 
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Locat ion 


Contents 


A-S 

A-l 

A 


A + N-l 



Actual length of Area 
Location of Area 


FIGURE 3 


After an allocation has been made* core memory appears as 
shown below: 


TOP OF THREAD 



Allocated area of ni 
words starting at A], 


Available area of N-ni 
words starting at Ag 
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l’b-5-4-2 Core Allocation Logic 

The subroutiner REtfALC- {request allocation} 
actually does the analysis to select the 
available area of memory- The logic is 
discussed below- RECJALC is called by the 
Core Allocator Driver with the parameters- 
requested length and level- 

If the requested length is I arger than the 
area available to the requested level- then 
RECJALC- immediately returns with a zero para- 
meter to the driver- 

otherwise- a search of all available core 
to the requested level is made to select 
that piece which has the following properties. 

1- The piece must contain N+2 words 
available to the requested level- 
5- The remaining piece {after N+2 words 
are allocated} is smaller than the 
corresponding piece of a I I other a I I o ' > 
eatable areas to the requested level *1/ 


If no such piece is found- then the parameter, 
-1 is returned to the Core Allocator Driver- 
Otherwise- the optimal piece is broken into 
two or three parts, and the thread of ava i I - 
able core is strung through the left-over 
piece- The left-over pieces are restricted 
to being larger than MINSIZ so that they 
can contain the thread information- Figure 5 
shows how a piece is broken up into three 
pieces. Piece *1 lies below the area ava i I 
able to the level and Piece *E remains after 
the requested piece has been removed- 



CONTROL DATA CORPORATION 

3000/17D0 Systems & Development DIVISION 


MAR 5 1971 


DOCUMENT CLASS ill? PAGE NO. ik-.Z 

PRODUCT namf 17D0 HS0S 

PRODUCT MODEL NO E00b"3. Q MACHINE SERIES iZflfl 


BEFORE 

TOP OF THREAD 


AFTER 

TOP OF THREAD 




^FFF lb 

t 


J Nn 

i 


a 


UNPROTECTED 
! CORE 


j 


FIGURE 5 
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1 t.5-1.3 Core return logic 

The subroutine RTNCOR does the analysis 
to combine the return piece ot core with 
the already available pieces. RTNCOR is 
entered from the RELEAS request processor 
CDRCORET • 


A search is made to find the first piece of 
available core which is below the returned 
piece. The returned piece is threaded into 
its proper position -Cthe available core 
thread is ordered by ascending core location}. 

A check is made to see if the returned piece 
touches its lower and/or upper neighbor. If 
sor the adjacent pieces are combined into 
one piece and the thread is updated. 

1 b*2 - 5 Tables 

LVLSTR This table contains 1? cells and is located 

in the system table module -CSYSBUF}. The r> 
first lb cells are indexed by priority level^ 
Each entry contains the core address of the 
first cell allocatable to programs with 
request priorities ot the level represented 
by the index. The last cell contains the 
address ot the last cell in the area which 
is controlled by the core allocator. 

If3 DRCORE 

14,. 3-1 External Symbols 

LAND Address ot last location in the area 

controlled by the core allocator. 

LOGIA Logical unit table containing PHYSTB addresses 
for each logical unit. 

CALTHD Core allocator thread. 

RTNCOR Entry to core allocator for releasing space- 

CORE PHYSTB entry for tne core allocator. 


LVLSTR Level start table- 


SUAPAR Mass storage address of area where unprotected 
core contents are saved during swap. Filled 
by the initializer. 
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UNPIO Count ot number ot unprotected I/O calls 
pending. 

SPASli) A switch in TRANV used to inform the protect 
processor that a swap is desired. 

L0G2 Logical unit table containing thread tops 

tor all logical units. 

REflALC Entry to the core allocator tor allocation 
ot space. 

AREAC Start address of block controlled by the 
core a I I ocator • 

lb. 3. 2 Function ot the Program 

DRCORE serves as the driver tor the core allocator 
and as the request processor tor RELEAS requests- 
In this capacity it makes al I decisions in the area 
ot swapping and stacking calls tor space- 

SUAPCK is the entry point to a subroutine used by the 
job processer and library edit programs to count down 
the UNPIO unprotected I/O counter and restart the 
space driver it it is waiting to swap and UNPIO is 
zero- 

1^3-3 Requests tor Space 

Requests tor space come trom two sources. 

1. Schedule calls tor non-resident system 
directory programs- 

2. SPACE requests- 

lb* 3-3*1 System Directory Format 


The scheduler gives control to DRCORE when 
a system directory request for a mass memory 
resident program is made. DRCORE determines 
the starting address of the programr based 
upon the areas of core that are currently 
available and enters this address in word 
lr S» ot the System Directory entry. 
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The format tor the system directory is shown below: 



WORD 

js 

m =1 

a 

7 4 

3 D 

□ 

0 

RC 

0 

RP 

CP 

1 



s 



2 


THREAD 


3 



<3 



4 



N 



S 


. MMA 



b 

0 

MMA {14-0} 




7 words 
per entry 
in the 
D i rectory 
for Hass 
Memory 
Res i dent 
Programs 


RC 


is the request code for the System Directory and is 
zero. 


RP is the request priority used in tine a I I ocat i on of *>->, 

core memory. RP is a number from □ to IS- {set by^j* 
the LIBEDT *S statement}. RP=1 to 3 is reserved 
for use by the Job Processor- 

CP is the completion priority at which the mass memory 

resident program will be scneduled after the read is 
complete. CP is set tor the Scheduler and is 
obtained from the requesting progranv's scheduler 
call. 


S is the starting Core address of the program and also 

the first location of the allocated core. This is 
set by tne core allocator. 

THREAD is the thread location used to point to the next 

entry on a threaded list. This directory entry 


will 

1 be placed on 

the f o 1 lowing 

threads . 

THREAD NAME 

POSITION 

DETERMINED BY 

WHEN 

Core A 1 1 ocator 


RP 

after scheduling 

Mass Memory I/O 

Dr i ver 

RP 

after allocation 

Schedu 1 er 


CP 

after Mass Memory 
Read 
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The thread location is set non-zero 
by the Core Allocator Request 
Processor and is cleared to zero on 
comp 1 et i on ■ 

<3 is the parameter passed from the 

requesting program to the requested 
program. 

N is tne length in words of this program 

on mass memory. 

nriA is a double length word containing tne 
mass memory address of tnis program. 

The first word contains the most 
significant IS bits. The second word 
contains the least significant IS bits- 

1^-3.3-S SPACE Requests 

The user program may make a Horn tor request 
for al locating core- The core area will be 
allocated to the requesting program and must 
be returned by the requesting program before 
it will be reassigned to another program. 

The list of parameters is as follows. 


PARAM = □ 


1 


2 


3 


4 


IS 14 T a 7 43 U 



RC is the space request code and is equal to 1U. 

X is a re I at i ve/abso 1 ute indicator, modifying C. 

RP is the request priority, the relative priority of 

this request used to determine the position on tne 
core allocator thread and also to determine area of 
core allowable. RP is a number from 4 to IS. 

CP is the completion priority, the level at which 

control will be returned to C- 
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THREAD is the thread location used to point to the next 

entry on a threaded list. This monitor request 
will be placed on the following threads: 


THREAD 

NAME 

POSITION DETERMINED BY 


WHEN 

Core A1 

1 ocator 

RP 

after 

request 

Schedu 1 

er 

CP 

after 

a 1 1 ocat i on 


The thread must initially be zero, and is reset to zero on 
comp I et i on • 

<3 contains the address of the area allocated and is 

in the (3 register whfen control is given to the 
completion addressr C ■ If a 1 I ocat i on is impossible 
Q w i 1 1 be set negative. 

N is the number of words requested. 

it. 3*3-3 Internal Description of Allocation 

The Space Driver DRCORE is operated by a 
SCHDLE request from the request processor 
■[just like any other driver}. It uses 
subroutine FNR for new requests and uses 
the Core Allocator Subroutine CORALC to 
obtain the space required. If sufficient 
space is available then COMPRG? is used to 
complete the request. Q w i l I be set to the 
address of the allocated area when the 
completion address for the space request is 
scheduled via COMPRG?. If it is impossible 
for sufficient space to be available and 
swapping is in effect then the completion 
address will be scheduled with <3 set negative 
denoting an error- Errors of this type due 
to system directory calls cause the system 
directory call to be ignored but cannot be 
detected by the caller as no completion 
address is available- 


If insufficient space is not available then 
an attempt is made to swap* the request is 
rethreaded and the driver is set v not busy v - 
If core is released before swapping is 
effected* then the space driver will be re- 
entered and the request will be completed if 

G 
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sufficient space is available- Otherwise 
the request will be processed after the core 
swap area is released. For swapping to be 
executed the following conditions must all 
be true. 

1. The completion priority is greater than 
2. This is necessary since programs of 
level 5 and below are not operated after 
a swap since they might involve job 
process ing . 

2- A swap is not already in effect - 

3- A suitable time internalr since the last 
swap has passed. 

M • No unprotected I/O is in progress- 

If any of these conditions are not fulfilled* 
the request is put back on the core request 
thread just before DRCORE exits to the 
d i spatcher • 

Additionally* in the case of condition Mr 
SPASliJ is set non-zero so that the protect 
processor will schedule DRCORE whenever 
UNPI0=0 and the allocator is not busy- 

If the above conditions for swap are fulfilledr 
then the f u II ow i ng operations occur: 

1- A write is started which transfers the 
contents of unprotected core to a 
designated area on mass storage. This 
area is set up at system i n i t i a 1 i zat i on . 

2- A loop is scheduled at level 2 to lock 
out all programs at that level and below. 

3* The LVLSTR table and LEND are updated 

to reflect the additional space available 
for a I 1 ocat i on • 

4 . SWAPON is set to one * to indicate a 
swap has occurred. 

At the completion of these operat i ons the 
space driver is marked ^not busy* 7 and the 
request that caused the swap is re-threaded 
to the top of the L0G2 request thread. 

Uhen the swap transfer to mass storage is 
completed* the space driver resumes as 
f o 1 I ows • 

1. The core allocator is entered to release 
the space just made available. 
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E. The area is protected. 

3- A space request for the swapped *area is 
added to the wait list for threading 
on the allocator thread at completion 
of DRCORE processing. 

4. A new attempt is made to a 1 1 ocate the 

space to the call which caused the swap. 


When enough space is released so that the 
area is again available for job processing 
-Cthe SPACE request made above is completed} 
the above procedures are reversed and the 
job is resumed as if no swap occurred. 

NOTE: For swapping to combine the allocatable 

7 unprotected v areas , the space request 
processor must be the last resident module. 

The priority level of the space driver is 
determined by the completion priority set 
in Word □ of the CORE physical device table- 
It is usual ly set to seven -[?}• When a swap 
occurs the space driver must set al I the ,-. v 
protect bits in the unprotected core area-i^y 
To do this requires b-b micro-seconds per 
location. Thusr for an ^unprotected v area 
of size 10K the driver level will be busy 
in this loop for approx i mate I y bb milliseconds 
when a swap is requested or released. 


The space driver rethreads a request back on 
to the allocator thread if it is not possible 
to a I I ocate enough space for the request at 
that time. No attempt is made to process 
lower priority requests even though they may 
require less space. The exception to this 
rule is if the request to be re-threaded 
has a completion priority of less than three 
13}. These requests are put on a wait thread 
temporarily and then an attempt is made to 
allocate space to the next request on the 
allocator thread. When any other requests 
have been processed requests on the wait 
thread are returned to the allocator thread. 
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On completion of job processing* routine 
JOBEND in the Manual Interrupt Processor 
is entered to cause a core swap. This is 
done by making a special space request that 
can only be satisfied at the given request 
priority by a core swap. The special area 
so allocated is released when the job 
processor is requested. This area occupies 
only four cells for the allocator thread 
at the end of the ^unprotected area v . 

Unnecessary swapping is thus avoided when 
the job processor is not in use. Excessive 
swapping on temporary overloads during job 
processing can be avoided by setting the 
minimum interval between swaps. Table LVLSTR 
must be set up very carefully noting that 
programs that are not independent cannot be 
assigned to the same request priority, i-e.» 
they must have separate allocatable areas in 
which to run- It is not sufficient to 
provide a total allocatable area at one 
request priority sufficient for two dependent 
programs since one of the programs could be 
assigned to the middle of this area leaving 
insufficient area for the other program- 

lb. 3.5 RELEAS Requests 


1 b. 3 - 5 • 1 Monitor Request for Returning Core 


PAR AM+0 
+ 1 

RC 
X 
R 


All programs that have been a I 1 ocated core 
memory, must return the a 1 I ocated core to 
the Core Allocator, when they are finished. 
This includes all mass memory resident 
programs • 

The calling sequence is shown below: 


IS 14 


L° 1 


RC 


=16 7 

I* ' 

C 


1 0 , 
;■ i r| 


is the request code twelve 112} for returning core- 
is an abso 1 ute/re I at i ve indicator* 
is the return control indicator. 

If R=0, control is given to the dispatcher after core 
is returned. This is the value of R to be used when 
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a program returns the core in which it resides* Since 
the core will be re-a I I ocatedr the program residing 
in it may be destroyed. Thus control is not returned 
to the program but to the Dispatcher instead. Other- 
wise R-l* control is given to the user at the next 
i nstruct i on . 


C specifies the area being returned. 

If Cl 5 = 0 * X is ignored and C^q-O is the absolute core 
address of the area being returned. {absolute direct} 

If Ci 5 =l and X = 0* then Cm 0 is the location that 
contains the absolute core address of the area being 
returned- {absolute indirect} 


If ^5 = 1 and X = 0 then Cm ~0 is a IS bit relative 
address which when added to the address of the 
parameter list gives the core address of the area 
being returned {relative* direct} 

Note that relative indirect is not allowed- 

Notes on returning core: 

User programs must return each piece of core which they have 
been allocated. Otherwise the piece of core will remain 
allocated indefinitely. Each piece must be returned once 
only. 

A check is made to determine if the area of core being 
returned belongs to the allocatable area- If the area of 
core being returned is outside the allocatable area* then 
the request is ignored and control does not come back to the 
user* but instead goes to tne Dispatcher. Using this feature 
all programs* whether mass memory or core resident* can be 
written identically. At the end of a program* the RELEAS 
request is made with R* the return indicator* set to zero* 
and C specifying the start of the program- For c^re resident 
programs no core is returned and control goes to the dispatcher. 
For mass memory resident programs* the core is returned and 
control is given to the dispatcher. The coding for both 
core resident and mass memory resident routines is the same- 


lfe,.4 SPACE REQUEST PROCESSOR 

The SPACE Request Processor is entered in the same manner 
as the R/W Processor- Its purpose is to set necessary 
parameters {logical unit number* etc.} so that the R/U 
Processor can complete processing of the request- In 
addition* this processor contains the block of core cont- 
rolled by the Core A I I ocator and the restart program- 
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External Symbols 

CKTHRD Routine in R/UJ Processor which checks for 
non-zero thread. 

LEND Address of LOC that contains LAND in DRCORE. 

SAVLU Location in R/U Processor to which the SPACE 

Request Processor exits- 

CALTHD Core allocator thread location in SYSBUF- 
RPNASK flask for request priority 

IDLE The level -1 idle loop. 

DTIMER Entry point to diagnostic timer 
lb-4 -2 Internal Symbols 

AREAC Start of allocatable core area- 
AVCORE Size of the allocatable core area- 
LAND End of the allocatable core area 

AREAlir AREAS, AREA3 , AREA4 Size of areas 1- 4 • 



1 Lr 4 • 3 Restart Routine 

Since this program is operated once immediately 
after autoload, it is located in the block to be 
controlled by the core allocator. 

It is entered via the following procedure when the 
system is on mass storage. 

1. Master clear the machine- 

E. Depress the autoload button on the mass storage 
device* 

3 Depress the run switch- This causes the machine 
to execute a program which reads the resident 
portion of the system from mass storage- Uhen 
this is done, the program jumps to the address 
specified in location 1, which is the address of 
the restart program. 

The restart program performs the following operation 
before jumping to the idle loop. 

1. Protects all locations which must be protected 
and unprotects all others 
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2. Enables the timer interrupt and initiates the 
diagnostic timer if present. 

3- Requests that the protect switch be activated. 


The 1573 Line Synch. Timing Generator -Ctimerl is 
assumed to be interfaced via a 1570 Data and Control 
Terminal {DCTJ that is assigned to Equipment No- a 
It is started by an output with A=A000it>. If this 
output results in a reject, the following message 
will be printed on the output comment device: 



TIMER RJ 


This message will occur if the Timer is not present 
or if the 400hZ power supply is switched ^off or the 
equipment code assigned to the DCT is not 6. 


The message PP is then typed to request that the 
operator set the protect switch ON and enter an ■*- 
On input of an ** CR the Restart program exits by a 
jump to the level 1 idle loop IDLE- 
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17.0 PARAME " Parameter List Conversion Routines 
E0.1 Program Function 

Four routines are provided in this module for the 
purpose of decoding parameters in monitor requests. 
The parameters decoded are! 

LU “ Logical unit 

S “ Starting address of 1/0 buffer 
N ~ Maximum number of words to be transferred 
C ” Completion address 

E0.E Entry Interfaces 

The entry points are as follows: 

LUABS 

SABS 

NABS 

CABS 

The routines are entered by a RT J to one of the above 
entry points or by an indirect RT J to locations BC“BF 
in L0C0RE. On entry <2 contains the location of the 
parameter list. 

ED. 3 Exit Interfaces 

All routines exit with the decoded parameters in Cl. 

In addition* SABS exits with the location of the S 
parameter in A. A and Cl are not conserved* but I 
remains unchanged during the routines* 
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lfl.1 FUNCTION 

This module functions as a communications area between 
the mass memory resident Job Processor and Library Edit- 
ing modules and core resident modules. TRVEC divides 
functionally into three parts: -Cl> the vector table - 

a table of flags and addresses necessary for communication 
between core resident and mass resident programs-i {5} 
JBCNCL - routine to schedule either JBKILL or PROTEC 
and {3} JPRETN - routine to facilitate return to either 
T7 or JPLOAD from the Loader. 

16.5 ENTRY POINT NAMES AND FUNCTIONS 

TRVEC Entry Point to TRVEC module. 

TRANV Contains the absolute address of the Job 
Processor transfer vector table. 

JBRROE Location in JOBE NT to Process Job Processor 
modules • 

ERRMSG Absolute address of ERRM routine in J OBENT ■ 

MIBUF Absolute address of MIPBUF buffer in JOBENT. 

TRNVEC Absolute address of TRNTBL buffer in JOBENT. 

LIBET Contains location in LIB in JOBENT module 

{routine to schedule LIBEDT>. 

RECOV Contains absolute location of RECOVR in JOBENT 

module {routine to schedule the Recovery program! 

RELS1A Location in JOBENT to release a specified file. 

JOBIND A flag which indicates whether the Job 
Processor is in core. 

UNPIO Contains the number of unprotected I/O calls 
pending. Used by the Core Allocator to 
indicate when a swap may be made. 

IUP Pointer to the comment device. Used by the Job 

Processor {initially set to 16FD3-. 

SPASti) Flag which is set non-zero when the Core 
Allocator wishes to swap core. 

NSTACK Max. number of stacked requests* 
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V RESET Flag when set indicates to JBKILL to change 

IUP back to its initial value -ClflFD^^}. 

PC0MFL Protected Common Flag {LIBEDT}. 

PR0RET Contains the absolute address in JPL0AD to 
return to after PR0TEC is scheduled. 

JPSlilT Temporary location for MIINP buffer address 

or an index to the tranta table or a negative 
value set by J0BENT or JBKILL . 

FILE1 Contains the address of the area in allocatable 
core where JOBENT-i Till T7 t TS and T3 are 
brought into. 

FILES Address of the area for the Job Processor and 
LIBEDT modules. 


FILE3 Address of the area for the Protect Processor 
and JBKILL modules. 

FILEM Address of the area for the tape driver buffers. 

L0CF Contains the location of the routine in the 

Protect Processor which puts out J01 and JOB 
error messages. 

LPTRS Location of PTRS in the Protect Processor. 

SUTCH Switch to lock out Job Processor when LIBEDT 
or the recovery program is in operation. 

L0ADIN Flag for protect processor to allow the loader 
to read and write below the scratch area on 
mass storage. 

UNPTIM Number of unprotected timer requests outstanding 
{checked by JBKILL before job is terminated}. 

JKIN Contains the address of JBKILL when in core. 

JBCNCL Job Processing cancel routine 

JBCNFG Set when JBKILL is active. 

JPRETN Routine to interface between loader and Job 
Processor modules. 


JPRET1 Contains a return address to T7 or JPL0AD. 
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16.3 EXTERNALS AND DESCRIPTION 

PROTEC - An entry in the system directory. 

The mass memory resident Protect Processor. 

ia.4 ENTRY INTERFACES 

None 

ia.5 EXTERNAL INTERFACES 

Within the JBCNCL routine an exit is made to the 
dispatcher to schedule either PROTEC or the starting 
address of JBKILL. Within the JPRETN routine an exit 
is made to either T7 or JPLOAD depending on what 
address is stored in JPRET1. 

Ifl.b GENERAL PROGRAM INFORMATION 

Ifi.b.l The equate of NSTACK to 5 sets the maximum number of 
I/O requests that may be stacked at one time. 

lfl.7 GENERAL DESIGN PECULIARITIES 

ia.7.1 If a new entry is made to the vector table -i it must be 
inserted following the constant RELS1A. The constants 
from TRANV through RELS1A are part of a table transfer 
from JOBENT . 


IB.a PROGRAM LOGIC 

ia.a.1 The JBCNCL routine first checks the job cancel flag 
■CJBCNFGI which is set if JBKILL has been scheduled. 

If scheduled jump to the dispatcher. If not scheduled 
add one to JBCNFGi set the <2 register negative to 
indicate that JBKILL is requested and check the JBKILL 
in core flag -CJKIN>. JKINi if non zeroi will contain 
the starting address of JBKILL. If JBKILL is inn 
schedule that address and if it is not ini schedule 
the Protect Processor and jump to the Dispatcher - both 
the address and PROTEC are scheduled at level two so 
that no other Job Processor routines may interrupt them. 
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n.D thint 

TMINT processes TIMER requestsr timer interrupts and delay 
expiration* 

1^.1 External Symbols used by Timer Package 

SCHERR Used to exit if the schedule is full 
TIMACK Acknowledge code for time interrupts 
l^.E Time Request Processing 
lT.E.l Entry Interface 

Entered from the monitor entry for requests via 
a jump. *1? contains location of volatiler and 
*A^ contains location of the request. 

IT-E-E Exit Interfaces 

Exit is made to SCHERR if no schedule stack space 
remains open* Exit is made to request exit after 
the request has been added to an appropriate stack 

n.E.3 Internal Operation 

On entry* the request processor translates the 
completion address and attempts to f i I l an empty 
schedule stack entry with a SCHDLE request at the 
level specified in the TIMER request. If no 
empty exists* exit is made to SCHERR. 

The newly filled schedule stack entry is then 
threaded to one of 4 lists depending on the V U^ 
parameter- The callers delay time is added to 
the stack entry as the parameter. Exit is 

then made to the request exit. 

1 c l. 3 Time Interrupt and Expiration Processing 

After the interrupt is acknowledged* each of the counters 
for the 4 lists {see A. 4. 31 are examined to see if one 
count for that list has expired. If no* the respective 
count is decremented and exit is made to the dispatcher. 

If the count is expired* it is reset and the threaded 
list correspond i ng to that counter is examined. The 
delay in each member of the list is decremented. Those 
delays which are decremented to zero cause SCHDEL requests 
which result in operation of the concerned program. When 
this process is complete* the next counter is decremented 
etc • 
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If the acknowledge of a time interrupt is rejectedr the 
program will exit to the dispatcher- 

1^- M Insta I I at i on 

The TniNT module may be added in the same way with one 
additional requirement. The entry point name ’’TiniNT* 
must set as the primary processor for the interrupt line 
where time interrupts are trapped. This is done by 
suitable re-assembly of LOCor-E module of the system 

la.S Internal Symbols used by TniNT 

These symbols are defined via Ed?U pseudo operation and 
can be easily deduced from the listing. 
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50.0 D ™ ER 

This diagnostic timer module processes I/O hang ups. 

50*1 External Symbols used by Diagnostic Timer 

The starting address label for each PHYSTB entryr to be 
interrogated by this moduler is declared as an external 
symbo I • 

50-5 Diagnostic Timer Operations 

This module is operated periodically as the result of a 
TinER request generated by itself- The first TIMER 
request is made in the startup Routine at autoload time. 

On entry* this module decrements the clock cell {in PHYSTBI 
of each non-idle device- If the clock cell becomes minusr 
the device is assumed to be hung up and the error entry to 
the driver is scheduled. When this process is complete 
for each devicer the module makes a TinER request* to 
cause its next execution* and exits to the dispatcher- 

BQS Insta 1 1 at i on 

The Diagnostic Timer module need only be added to 
resident -OL statement! during system initialization. 

50- M Internal Symbols sued by the Diagnostic Timer 

EDCLK Index to diagnostic clock in each PHYSTB entry 

EDPGM Index to location of error routine in each PHYSTB 
entry 

SECOND Number of timer pulses per second 

DELAY Number of seconds between successive operation 
of the diagnostic timer 

DTLVL Priority level at which the diagnostic timer 
operates. {assembly value is 13-1 

NUflPU Number of physical devices 
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21.0 MINT 

The manual interrupt program is entered at the level of the 
teletype driver for equivalent} from that driver* On entry 
at MI the flags MIB and MIBX are checked. If either flag is 
set the entry is ignored and the program exits to the dispatcher. 
Otherwise the manual interrupt program continues by scheduling 
itself down to level 3. Note that flags MIB and MIBX are not 
set or tested by the teletype driver r the driver simply schedules 
MI at its own level. 

Nb attempt is made to allow the manual interrupt to interrupt 
the current request in progress on the comment device -Cif any}. 
Therefore* the current request must be completed by allowing 
the type out to finish and/or entering a carriage return to 
complete input before the Manual Interrupt Processor can output 
MI and request operator input. Requests in progress may also 
be completed by causing the comment device to fail provided 
it is assigned the dummy device as an alternate {see 17. 

After scheduling down to level 3 the manual interrupt processor 
types ^MI V on the comment device and requests an input of up to 
24 characters on the comment input device. While waiting for 
input the program hangs in a loop at level 3 thus suspending 
job processing. If the input request fails it is repeated. 
Otherwise* thei input buffer is checked. 

The first character of the input buffer {MIINP} determines 
whether the statement is a job processor statement* i.e.r if 
the first character is an asterisk {*}• If not an asterisk* 
and the program MIPRO is present* this program is scheduled 
via the system directory entry for MIPRO with Q set to the 
address of the MIINP buffer. MIPRO may be a core or mass-memory 
resident system directory entry. If MIPRO is not present -Ci.e.* 
and unlimited external} a JOS error is typed and the program 
clears MIBX and exits. 

If a Job Processor statement is entered and the job processor 
is not in core {J0BIND=0} and is not locked out {SWTCH=0} then 
the job processor entry module JOBENT is scheduled at level 
zero with <3 = address of MIINP. If the job processor is already 
in core -CJOBEND^Q} only the following job processor statements 
are accepted. 


A} Job 

Processor 

not 1 

locked out {SWTCH=0} 





«Z 

Terminate 

Job 

Schedu 1 es 

JBCNCL 

at 

1 eve 1 

2 

*R 

Restore 1 

• u. 

Sets MIBX 








Schedu 1 es 

RESTOR 

at 

1 eve 1 

3 
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** Continue 


No action 


Resumes job processing at level □ 

B> Job Processor locked out {SWTCH=FFFF> 

Library Edit or Recovery in operation 

*Z Terminate Job Sets SUTCH=1 

"R Restore l.u- Sets NIBX 

Schedules RESTOR at level 3 

** Continue No action 

Resumes job processing at level □ 

Any statements other than the above will cause a JOS error 
if the job processing is in core. 

If NIBX flag is set when a high level job processor statement 
is accepted and is cleared by the appropriate module -CRESTOR 
or JBCHGEI when the statement is processed. These modules 
run at level three and do not return control to the job 
processor on completion in this mode of operation. If NIBX 
is set further manua 1 interrupts are ignored. 

NIBX is also set when NIPRO is scheduled and must be cleared 
by that program on exit. 

The NIB flag is set on entry to the manual interrupt processor 
and cleared on exitr or by the job processor if at level zero. 
NIB is also set when transferring control between job 
processor modules to prevent an **Z from being entered at 
that time- 

RELFLE is entered from the Job Processor to release the 
allocated core for each of the four possible allocated 
areas used by the Job Processor* The addresses of these 
allocated areas are saved at FILElr FILE2» and FILE4 
■Csee 2b. 2. 2}. After releasing the allocated core JOBIND 
is reset to zero. 

Provision is made to force a core swap when the Job 
Processor is not in use in orcer to take advantage of the 
extra core available to the protected programs and to 
eliminate unnecessary swapping. This is done by routine 
JOBEND which is entered after executing FELFLE. A space 
request is made that can only be completed when swapped. 

Two locations will then be allocated at the end of the 
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swapped area* The space thus allocated is not released 
until a new Job Processor statement is entered and J0BENT 
is scheduled. 



NOTE that when the Job Processor is not in user the level 
two loop set in operation by the core swap will be in 
effect* All protected programs must be run above level two* 
Since the swap remains in effect any overloads in the normal 
allocatable area will be accommodated immediately by assigning 
part of the swap area* 


21*1 Load Requirements 

The Manual Interrupt Processor is a core resident program. 
It must be loaded under an "L System Initializer statement 
and before "Mr mass storage resident Job Processor modules. 


Program 

Entry Points 





MI 

Scheduled by the Comment Device 
drive priority level 

Dr i ver 

at the 



RELFLE 

Releases core defined by FILElr 

FILEEr 

FILE3, 

FILEM. 


J0BEND 

Forces a core swap by a special 
Job Processing is finished. 

space 

request 

when 



El*3 Program Switches and Flags 

MIB Manual Interrupt Busy Switch 

Zero = Not busy 

Non-zero = Busy 

Must be set to zero before another manual interrupt 
can be processed. 

MIBX Manual Interrupt Busy Switch secondary level 

simulator to MIB 

SVLU Saves the Job Processor comment logical unit in 

case an "V statement is in effect. 

MIINP EH character manual interrupt input buffer. 
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21.4 External Switches and Flags 

SWITCH Job Processor lock-out switch 

0 = not 1 ocked out 

$FFFF = locked out 

1 = locked out * *Z has been entered 

JOBIND Set by Job Processor to indicate if Job Processor 
in core and its entry point location 

IUP Job Processor Logical Unit Number 

21*5 External Programs 

JOBEMT 1st Job Processor module to be executed. Upon 

scheduling* <3 contains location of NIINP buffer. 

HIPRO System Directory Entry Name for the program to be 
scheduled when a statement is entered that does 
not begin with an asterisk. <3 contains the 
location of the NIINP buffer entry. NIPRO must 
clear NIB on completion. 
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EB.D Manual Interrupt Processor {MIPRO} 


22.1 Function 

Mipro processes all non- job processor statements. 


22.2 Entry Interfaces 

Mipro is scheduled at level 3 by MINT 
<2= address of the ASCII input buffer 


22.3 Exit Interfaces 

Mipro schedules the appropriate processor for the control 
statement entered. 




22.4 Control Statements 

$$ Diagnostic timer is scheduled {start timer! 
=S Schedule system directory program 
SELF Dump Engineering File 
NOTIME Disable Timer 
SYSCOP Start System Checkout 

DB Start On“Line Debug Program 
DX Stop On-Line Debug Program 
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EE. 5 Tables 

EE-S.l Vector Table 

Table of one word addresses to statement processors- 


EE. 5*5 Function Code Tables 

C0D1 ~ Control statement r characters 1 and S 
CODE “ Control statementr characters 3 and M 

EE. 5. 3 Index Table 

Table of addresses for scheduler calls 
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23.0 


JOBENT JOB PROCESSOR CONTROL MODULE 

23.1 FUNCTION 

The JOBENT module has three primary functions. 

a. Calculates the absolute addresses of the 
Loaderi Core! Exit and Status request processors 
and stores them in the RCTV table NMONI. 

b. Holds the input and transfer table buffers 
which are accessed by the other Job Processor 
routines. 

c. Releases and schedules the correct Job Processor! 
LIBEDT or System Recovery module as determined 
by the parameters passed to it. 

23.2 ENTRY POINT NAMES 


23.3 


JBENT 

JBPRO 

MIPBUF 


EXTERNALS AND DESCRIPTION 


PCOMFL 

JBCNFG 

MIB 

FILE1 

FILE2 

JOBIND 

StdTCH 


LIBEDT 

RCOVER 

UNPTIM 

RELFLE 


LIBEDT protected common flag {TRVEC} 

Job cancel flag {TRVEC} 

Manual interrupt lockout flag {MINT} 
Contains absolute address of JOBENT when 
in core {TRVEC} 

Contains absolute address of JP or LIBEDT 
modules when in core {TRVEC} 

Job Processor in core flag {TRVEC} 

Switch to lock out the Job Processor when 
LIBEDT or system Recovery is in operation 
{TRVEC} 

Library Editing Module 
System Recovery Module 

Number of unprotected timer requests out- 
standing {TRVEC} 

Routine to release all files {MINT} 
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Temp. loc. for MIINP buffer address or 
an index to the tranta table or a 
negative value set by J0BENT or JBKILL 
CTRVEO 

Address of error routine in PR0TEC -CTRVEO 
Job Processor nodule 
Job Processor Loader nodule 
" K Processor nodule 
Getfile Request Processor nodule 
Request Code Transfer Vector Table. -CNnONI} 
Restore Logical Unit nodule 
Contains absolute address of J0BPR0 Tranta 
Table CTRVEO 

JBKILL in core flag CTRVEO 
Status Request Processor Entry Point CT3> 

Exit Request Processor Entry Point CTS> 

Loader Request Processor Entry Point CT7> 

Core Request Processor Entry Point CT11> 

S3. 4 ENTRY INTERFACES 

The initial entry to J0BENT is made at JBENT when the 
Job Processor is called with a manual interrupt. After 
processing has begun and prior to FILE1 being re- 
leased! entry to J0BENT may be made at any of four 
routines . 

S3. 4*1 JBPR0 - A routine that schedules the requested Job 

Processor module as determined by the parameters passed 
in the A and Q registers. 

S3. 4.5 LIB - This routine is entered by a jump from JPL0AD 

when it has been determined that a request for 9 LIBEDT* 
has been made. 


JPSUT 


L0CF 

J0BPR0 

JPL0AD 

JPCHGE 

JPT13 

RCTV 

REST0R 

TRANV 

JKIN 

T3 

TS 

T7 

Til 


53. 4. 3 REC0VR - This routine is entered from J0BPR0 if <3 
register is zero and from JBKILL if negative. The sign 
of Q upon entry indicates whether the Job Processor is to 
be scheduled upon return from System Recovery. 

53. 4. 4 RELF - This routine releases an area of allocatable core 
depending upon the contents of the (2 register on entry. 
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23.5 EXTERNAL INTERFACES 
23-5.1 JBENT 

Exit is made via a schedule of J0BPR0- If <3 register 
is negative upon entry to JOBPRO print a "J" and input 
next control statement* 

23.5.2 JPPR0 

Exit is made via a schedule of the requested Job 
Processor module* The d register will contain an 
index to a routine within the scheduled module or an 
execution address* 

23-5.3 LIB 

LIB schedules LIBEDT with the return address to LB2 
routine in J0BENT in tf. Upon return from LIBEDT n 
JOBPRO is scheduled with <3 set negative to indicate 
that the next control statement has not been read* 

23.5. 4 RECOVR 

REC0VR schedules the System Recovery module {RC0VERI 
after having stored its return address in the absolute 
location $EE* Upon return from RC0VER a check is made 
of the value of Q when RECOVR was first entered. If 
Q was initially negative the Job Processor is scheduled 
with Q negative. If Q was positive a jump is made to 
RELFLE {routine in MINT to release Job Processor from 
core). 

23.5.5 RELF 

RELF exits to the Dispatcher after releasing the file 
specified. 

23. b GENERAL PROGRAM INFORMATION 
23. b. 1 ENTTBL 

ENTTBL is a table of relative entry point addresses in 
J0BENT* The addresses are added to the FUA^JOBENT and 
transferred to TRVEC* 
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33. b. 3 TBL 

TBL is a table of Job Processor module addresses* 

These addresses are picked up by the JBPRO routine to 
schedule the requested Job Processor module* 

33*7 GENERAL DESIGN PECULIARITIES 

33*7*1 BUFFI 

This area of the JOBENT program as indicated by the 
asterisks will be overlaid by the contents of the 
I1IINP buffer in HINT or the Sill buffer in JOBPRO* 
fllPBUF is equated to BUFFI for addressing purposes* 

33*7*3 BUFF3 

This area of the JOBENT program as indicated by the 
asterisks will be overlaid by the contents of the 
TRANTA table in JOBPRO* The three locations! BPSi 
RI and LOADEPt within the BUFF3 area! must initially 
be set to zeroi prior to scheduling JOBPRO* TRNTBL 
is equated to BUFF3 for addressing purposes* 

33*7*3 ERRfl and SPI 

The ALF statements following ERRM and SH must immed- 
iately precede the BUFFI area* These two statements 
in conjunction with the BUFFI buffer are used to print 
out J03 and J04 error messages. 

33*7*4 ENTTBL 

Any entries made to this entry point table must also be 
made in TRVEC in the same relative position* This 
restriction is made because the table is transferred 
to TRVEC with the table transfer rountine -CMVTBL}* 

33*7*5 TBL 

Any entries made to this table must be made following 
the RESTOR entry due to the indexing scheme in the 
JBPRO routine* 
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23-fl PROGRAM LOGIC 


23-S-l General flow of JOBENT routine 


JOBENT is entered initially from MIPRO with the <2 
register containing the address of the manual inter- 
rupt buffer {MIINP}- This address is saved and the 
LOOP routine is entered- This routine transfers the 
contents of ENTTBL table to TRVEC- The absolute ad- 
dresses of the Core {Tll}-» Loaded {T7}n Exit {isl- 
and Status {T3> Request Processors are calculated 
and stored in the RCTV table in NMONI- The three 
locations BPSn RI and LOADEP are then cleared in what 
will be the transfer table buffer {TRNTBL3-. The 
transfer of the MIINP buffer in MINX to MIPBUF {BUFFI} 
is then accomplished- Upon completion of the transfer-i 
the Load and Go sector number is set to one and JOBPRO 
is scheduled with Q set negative which indicates a 
"J" is to be printed out and the next control statement 
accepted- 

The JBPRO routine schedules a job processor module 
as determined by the contents of the A register- 
The module is then scheduled with the (2 register 
either set negative to print out a "J n i set to an 
index within the scheduled module or set to an execution 
address- 

The LIB routine is entered from JPLOAD to schedule 
LIBEDT - 

The LB2 routine is entered upon return from LIBEDT 
and exits to schedule JOBPRO- 

The RECOVR routine is entered from either JOBPRO or 
JBKILL to schedule the System Recovery routine {RCOVER}- 

The RCE routine is entered upon return from the System 
Recovery routine {RCOVER}- Exit is to either the 
RELFLE routine in MINT or to schedule JOBPRO- 

REL is a routine entered only from within JOBENT to 
release FILES E and 3 if active- Exit is to the calling 
routine- 

RELF is entered from outside the JOBENT module by 
routines wishing to release a file they specify by 
the contents of the (3 register- 
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MRELF is the master release routine that releases the 
file specified- The routine is entered from the JBPRO 
and RELF routines and exits to the sender- 
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53. T SUBROUTINE LOGIC 
53. =1.1 JBPRO 

Upon entry to this routine the <3 register contains 
either a negative value! an index to a routine within 
the module to be scheduled or an execution address. 

This value is saved in SAV<31 and the contents of the 
A register is transferred to the <3 register to be used 
as index to schedule the requested Job Processor module- 
These index values are as follows: 

D = JPT13-. 1 = J0BPR0-. 5 = JPLOADn 
3 = JPCHGE and 4 = RESTOR. 

The requested address is picked up and stored in the 
S edule Request. The location FI that contains the 
address of FILEli which contains the FldA of AREA1 is 
picked up and a return jump is made to MRELFt the 
master release routine* Upon return pick up in the <3 
register! the contents of SAVfll and schedule the 
proper Job Processor module* 

53. T. 5 LIB 

This routine is entered by a jump from JPLOAD when 
it is determined that LIBEDT is requested* Upon entry 
a return jump is made to the routine REL to release 
any outstanding files. The address of LB5 is then 
calculated and LIBEDT is scheduled with absolute address 
of LBS in the Q register. On return from LIBEDT the 
Load and Go sector is set to one and the MIB flag in 
MINT is set to lock out other entries* The Job Pro- 
cessor lockout switch ISUTCHT is cleared! the 1 3 re- 
gister and the Job Processor Switch -C J PSUT > are set 
negative and a jump is made to SJBPRO to schedule 
JOBPRO. 
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23. T. 3 RECOVR 

This routine is entered from the SGNOFF {*Z> routine 
in JOBPRO or from SG7 routine in JBKILL if the 
Recovery Indicator {RI> switch was set. The <2 register 
contents! 0 if JOBPRO - negative if JBKILU, are saved in 
SAVC3 to be used on the return from RCOVER. The 
absolute address of the RC2 routine is calculated and 
saved in location $EA to be used as a return from RCOVER. 
The System Recovery module is then scheduled. Upon 
return from System Recovery the contents of SAVtJ is 
checked. If negative -Cfrom JBKILLJ a jump is made back 
to LB4 to schedule JOBPRO. If positive {from JOBPRO> 
inhibit interrupts! clear the protected common flag 
{J*C0liFL>i clear Job Processor lockout switch {SWTCHJ and 
return jump to RELFLE in MINT to release all files and 
wait for input to HINT. 

23. 1 . 4 REL 

This routine is entered only from within JOBENT. Its 
function is to release FILE2 and FILE3 if active and 
if the job cancel flag {JBCNFG> is not set. 

2 3.1. 5 RELF 

This routine return jumps to HRELF to release the FILE 
specified in the Q. register. 
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24. 0 Til - Core Request Processor 

24.1 FUNCTION 

This module is used to set or determine the bounds 
of available core. The A and tf registers are used 
to pass parameters when a core request is made. If 
A and tf are zeroi the current bounds are passed to 
the requester.If A and Q are both addresses in unpro- 
tected core the current bounds of available core are 
set to these values. Available unprotected core is 
that portion of unprotected core which is available 
for loading of a subroutine or overlay. 

24.2 ENTRY POINT NAMES 
Til 

24.3 EXTERNALS and DESCRIPTION 

g- JBCNFG Job cancel flag. Set when JBKILL is in progress. 

I 

REtfERR Error routine in T? 

LOADIN Flag in TRVEC to indicate LOADER is in core. 

24.4 ENTRY INTERFACES 

Til is entered from NMONI with the first word of the 
parameter list in A and the address of volatile in I. 
Volatile contains the requester's <2n A and It the 
return location in the request program {word 3>i and 
the pointer to the request parameter list {word X0 • 

24. 5 EXTERNAL INTERFACES 

Two possible exits may be made from Til. 

1. Normal exit to REtfXT in NMONI by an indirect jump 
through location $BT. 

2. Error exit to REtfERR {in T71 made if A and tf 

are not both zero or if either of the addresses in A 
or tf is not in unprotected core or if A is not 
greater than tf. 
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24. b GENERAL PROGRAM INFORMATION 
None 

54.7 GENERAL DESIGN PECULIARITIES 
None 

54. fl PROGRAM LOGIC 

On entry A and <2 of the requesting program are checked to see 
if they are zero. If they are zero the temporary highest 
{contents of location $EC> and temporary lowest {contents of 
location *ED> bounds of available unprotected core are put in 
the requestors A and <2 respectively. 

If the requestors A and <2 were initially locations in 
unprotected core {within the bounds contained in locations $Fb 
and $F?>n then these values are stored in locations $EC and $ED 
respectively to define new bounds of available unprotected core. 
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35. D T7 LOADER REQUEST PROCESSOR 

35.1 FUNCTION 

This routine is used to bring the Relocating Loader 
into the highest available unprotected core* The 
parameters to be supplied to the loader are in A and 
<2* These are passed to the loader when it is executed* 

35-3 ENTRY POINT NAMES 

T7 

REflERR 

35.3 EXTERNALS and DESCRIPTION 

LOADSD Mass storage System Directory Table. 

JPRET1 Location in TRVEC in which the return 
address to T7 is stored. 

JPRETN Location in TRVEC to which the loader 
returns upon completion. 

JPRET Locations in preset tables in which the 

locations of JPRETN is stored* 

LOCF Location in TRVEC which contains the location 

of F in PROTEC. 

LPTRS Location in TRVEC which contains the location 

of PTRS in PROTEC* 

LOADIN Location in TRVEC to indicate the loader is 
in core* 

UNPIO Flag in TRVEC which indicates the number of 

unprotected I/O requests in process* 

SUAPCK Routine in DRCORE which decrements UNPIO 

on completion of an unprotected I/O request* 
JBCNF6 Job Cancel Flag. Set when J SKILL is in 
process. -CTRVEO 
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25.4 ENTRY INTERFACES 

T7 is entered from NMONI with the pointer to the first 
word of the parameter list in A and the address of 
volatile in I. Volatile contains the requestors Q-, 

A and It the return location in the requestors program 
{word 3} and the pointer to the request parameter list 
{word 5>. 


The parameters in the requestors <3 and A are as follows: 


A register 


Q register 


IS 43 0 


L.U. 

T 

IS 

0 

TNA 


where : 


L.U. 

TNA 


T 


□ 

1 

2 

3 

4 

5 
t> 
7 


Input unit for loading operation. 

Core location of the entry name of 
routine to be loaded. 

One of the following types of loading 
operation 

Relocatable binary load 

Subroutine load 

Program load 

Memory map 

Entry point look up 

Subroutine loadi no memory map 

Patch to core resident programs {CREPJ 

Set data base 


{A more detailed explanation of types of loading operations 
can be found in the discussion of the loader}. 

Entry may also be made from Til or T3 to REC3ERR. 
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55-5 EXTERNAL INTERFACES 

Normal exit is made via a jump to the requestor’s 
return address. If the Job Cancel Flag -CJBCNFGD- 
is setn exit is to the Dispatcher- 

Error exit is made from REdJERR to entry point F in 
PR0TEC to print out a J0s3 error. The requestor's 
parameter list pointer or the return location is stuffed 
in PTRS in PR0TEC to be encoded for the error message. 

55. b GENERAL PROGRAM INFORMATION 

LIC Local loader in core flag 

0NEBIT An equate to absolute location $53 =0001 

55.7 GENERAL DESIGN PECULIARITIES 

None 

5S.fi PROGRAM LOGIC 

T7 uses a lockout flag L0F to prevent the execution 

of more than one loader request* This flag is checked 
on entry and if set a request error {J05> is issued* 

If no errors the lockout flag -CL0F} is set* 

A check is made if the loader is in core* If the load 
type is Ii3i4 or bn or if the flag LIC is set it is 
assumed the loader is in core. 

If the loader is determined not to be in core! it 
is read into highest available unprotected core {not 
to exceed the location contained in $EC or $Fb which- 
ever is smaller}. The flag UNPI0 in TRVEC is set 
during this process to prevent a core swap during the 
read. 

A jump is made to the loader with the return address 
patched to JPRETN in TRVEC-. with the flag L0ADIN set 
in TRVEC to allow the loader to write below the scratch 
area on disk and with volatile released. 

Upon return from the loader if the load type is 0-.3\ 
dr 7 the flag LIC is cleared* The lockout flags L0F 
and L0ADIN are cleared- 
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3b. 0 Exit Request Processor -CTS> 

3b. 1 Function 

This request is used by unprotected programs to signal 
completion of a job or a user’s completion routine. That 
isi when a computation is completedn this request 
notifies the Operating System of that fact. 

3b. 3 Entry Point Names 

TS Exit request entry 

3b. 3 Externals and Description 

UNPTIM Number of unprotected timer requests waiting 

UNPIO Number of unprotected requests waiting to be 

completed 

IN TSTK Location of Interrupt stack 

JBCNCL Job cancel routine in TRVEC 

3b. 4 Entry Interfaces 

+Q = entry from the Monitor 

-Q = entry from the Protect Processor 

If the entry was from the Monitor A = location of the 
request parameter. 

3b. S External Interfaces 

None 

3b. b Tables 
None 

3b. 7 General Design Pecularities 
None 
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5b. a Program Logic 

Upon entrance i the <2 register is checked to 
determine whether entry was from the Protect Processor 
or the monitor. If entry is from the monitor! 
volatile storage is released! and the request 
location is checked. If the request is from protected 
core! TS exits to the dispatcher. Otherwise! all 
stack entries are checked for unprotected core rreturn 
location. If any exist! control is returned to the 
dispatcher. 

If none exist i "UNTIM" is checked for being non-zero. 
If so! "TIMER in effect"! the flag is checked until it 
goes to zero. Then "UNPIO" flag is checked fo*~ non- 
zero. If so! {unprotected request in operation! this 
waits until flag is zero and then schedules JBCNCL and 
exits to the dispatcher. 

5b. 1 Subroutine Logic 
None 


AA 3777 


PRINTED IN USA. 



Z 


3 


4 


5 



A A 1 385 (FOR 


V y 


Q CA ’ 27 -" 


PRINTED IN 


MAR 5 1971 

















2 


3 , 


5 



AA138S FORMERLY CA 27- 


PRINTGD IN USA 


MAR 5 1971 2b. 







CONTROL DATA CORPORATION 

30Q0/170D DEVELOPMENT DIVISION 


MAR -5 1971 


DOCUMENT CLASS. 
PRODUCT NAME — 


ms 


1700 OPERATING SYSTEM 


PAGE NO._JLZ.lA. 


PRODUCT MODEL NO. 


EUUfc,<*3.1T 


MACHINE SERIES. 


1700 


57.0 T3 Status Request Processor 
57.1 FUNCTION 

The function this routine performs is to get the 
request status-, equipment status and location of 
the parameter list of the most recent request 
processed on a given logical unit and return them 
in the requestors Qi A and I respectively. 

57.5 ENTRY POINT NAMES 

T3 Status Request Entry Point 

57.3 EXTERNALS and DESCRIPTION 

L0G1A Table in SYSBUF of PHYSTB addresses arranged 

by logical unit number. 

REC2ERR Error routine in T7 

JBCNFG Job Cancel flag in TRVEC-. Set if JBKILL is 

active . 

57.4 ENTRY INTERFACES 

T3 is entered from NMONIwith the first word of the 
parameter list in A and location of volatile in I. 

Volatile contains the requestor’s (3i A and I registers 
as well as the return location {word 3} and the location 
of the Status request parameter list {word S>. 

57.5 EXTERNAL INTERFACES 

Two possible exits may be made from T3: 

1* Normal exit to REflXT in M0NI by an indirect jump 
through location $B1 * 

5. Error exit to REcJERR {in T7> made if the logical 
unit is not legal for the particular system. 
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27. a 


27. b GENERAL PROGRAM INFORMATION 


The request parameter list is: 


IS 

14 


3_ 

s 

7 □ 


Request code 


□ □ 

a 

□ 

A 







L.U. 

TT~ 

H 

10 

1 

□ 


where : 

L.U. the logical unit 

A relative/indirect indicator for L.U. 


27.7 GENERAL DESIGN PECULIARITIES 
None 

27. fl PROGRAM LOGIC 

First the logical unit is found using the A parameter 
to indicate whether LU is the actual logical unit {A=0}-> 
a signed relative address of the logical unit {A = l> 
or the actual location of the logical unit {A=2>. Then 
it is checked for validity. 

If the logical unit is valid the table of the physical 
device is found. From this the location of the current 
I/O request parameter list is taken {word b} and stored 
in word 4 of volatile. The last location of the I/O 
buffer {word 11} is put in I of the requestor. The 
request status bits {word 6} are stored in the requestor' 7 
<2 and the last equipment status read is put in the 
requestor’s A. 

27 .I SUBROUTINE LOGIC 
None 
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2 fl • 0 JOBPRO 

Sfi.l FUNCTION 

The functions of the JOBPRO module are: 

1. Read in the Job Processor control statements. 

2. Analyze the statements read in. 

3- Set up the parameters to schedule the processor needed 
to handle the input statements- 

4- Terminate a Job Processor function- 

2fl . 2 ENTRY POINT NAMES 
JOBTWO 

2fl . 3 EXTERNALS AND DESCRIPTION 

TRNVEC - Abs. Addr. of TRNTBL buffer in JOBENT - TRVEC 
JBPROE - Abs- Addr. of JBPRO routine in JOBENT - TRVEC 
MIBUF - Abs. Addr. of MIPBUF buffer in JOBENT - TRVEC 
JPSIdT - Job Processor Switch - TRVEC 
JBCNFG- Job Cancel Flag - TRVEC 
RELFLE- Release Files Routine - MINT 

RECOV - Abs. Addr- of RECOVR routine in JOBENT - TRVEC 
IPl - Protect Processor entry point addr- - NIPROC 
VRESET- *V Reset Flag - TRVEC 

RELSlA- Abs. Addr. of RELF routine in JOBENT - TRVEC 

ERRMSG- Abs Addr- of ERR M routine in JOBENT - TRVEC 

FILE2 - Holds Job Processor Addr. when in core - TRVEC 
NSTACK- Max. No- of stacked requests - TRVEC 
TRANV - Abs. Addr. of JOBPRO TRANTA Tat - TRVEC 

IUP - Pointer to comment device - TRVEC 

MIB - Manual Interrupt lockout flag - MINT 
JKIN - JBKILL In Core flag - TRVEC 

FILE3 - Holds Protect Proc. Addr. when in core - TRVEC 
JOBIND- Job Processor in core flag - TRVEC 
RCTV - Request Code Transfer Vector Table - NMONI 
LOADIN- Loader flag for Protect Processor - TRVEC 
ONE - User subroutine 
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TUO - User subroutine 
THREE - User subroutine 

Efl - 4 ENTRY INTERFACES 

Entry to J0BPR0 can be made only at the JOBTIdO entry 
point- Upon entering JOBPROn the <2 register is examined 
to determine where control will be transferred- If the (3 
register is set negative control is transferred to the 
tag "JB". If (3 is not negative! control is transferred 
to one of five pseudo entry points obtained from the 
TRANTA table. 


1- 

JBPRO 

- Return 

when statement already input- 

E. 

JOBP 

- Return 

when no statement. 

3- 

J04 

- J04 error entry. 

4- 

J03 

- J03 error entry- 

S- 

RF3 

- Return 

to release File3 and output a 


Efl-5 EXTERNAL INTERFACES 

The majority of the Exits from J0BPR0 are to JOBENT to 
schedule the proper Job Processor module as determined 
by the input statement- Exit is made to RELFLE in MINT 
when a<*Z statement is input and the RI {recovery indicator} 
flag is not set. 

Efi-b GENERAL PROGRAM INFORMATION 

Efl-b-1 Transfer Table {TRANTA} 

The following table contains relative and absolute 
addresses and flags which are transferred to 
JOBENT before exiting from J0BPR0- 
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TAG 

FUNCTION 

TRANTA 

Abs- loc- of J0BTQI0 

Rel • to JBPRO 

Return when statement already input 

INPBUF 

Abs- Addr- of input buffer in JOBENT 

Rel- to JOBP 

Return when no stmt. 

Rel- to J04 

Error return "J04" 

Rel- to J03 

Error return n J03 n 


NOT USED 

BPS 

Breakpoint Switch 

RI 

Recovery On/Off Switch 

LOADED 

Loader Entry Point 

Jl REG - 

Request No.*_ 

STCK 

Loc- of Protect Processor Request Stack 


NOT USED 

NN 

No- of entries in Protec. Stack 

Rel* to RF3 

Return to release FILE3 


2fl-b-2 Table of Job Processor Input Statement Subroutines 

The following table is used in indexing to the 
proper routine as determined by the input statement. 
A value -CflREGl is picked up from the transfer 
table and is used as an index to the proper routine 
relative to the index base JPST. 


RELATIVE 

ADDRESS 

STATEMENT 

BPLOAD 

*B cr statement 

TYPEIN 

*U cr statement 

STDINP 

*V cr statement 

SGNOFF 

*Z cr statement 

SETREC 

*SR cr statement 

RESUME 

* cr statement 


2fl-7 GENERAL DESIGN PECULIARITIES 


2A-7.1 Alteration of the JPTAB in J0BPR0 which is used 
to set up the (3REG index value would cause the 
wrong routine from the TAB table to be executed- 

2fi.fi PROGRAM LOGIC 


This module is entered via a SCHDLE request from JOBENT. 
Upon entrance the absolute addresses of JOBTUOi JBPRO 
and TRANTA are stored in TRVEC. The contents of the BPS - 
RI and LOADEP locations in the TRNTBL buffer in JOBENT 
are then transferred to like locations in the TRANTA 
table- 
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A check is then made to see if the <2 register was negative 
upon entrance. If soi the next Job Processor statement 
is requested. If positive-) <2 contains an index to the 
relative address in the TRANTA table of the routine to 
be executed. 

Internal to the "J0BPR0" module is a list of acceptable 
statements. Associated with specified groups in the list 
is an address of a module to which control is transferred 
to carry out the operation directed by the statement. This 
list of standard input statements for the Job Processor 


includes : 

INPUT 

STATEMENT 

NAME OF SUBROUTINE 
TO PROCESS 

MODULE 

TRANSFERRED TO 

*K 

CHANGE 

JPCHGE MODULE 

*B 

BPLOAD 


*u 

TYPEIN 


*v 

STDINP 


*Z 

SNGOFF 


*SR 

SETREC 


* 

RESUME 


*R 

RESTOR 

RESTOR MODULE 

*1 

ONE 

ONE SUBROUTINE 


TUO 

TUO SUBROUTINE 

*3 

THREE 

THREE SUBROUTINE 


If not one of the above-i a loader statement is assumed 
and control is passed to the "JPLOAD" module-i otherwise-i 
the appropriate routine is set up to be scheduled by 
JOBENT. The following are the input statements that 
refer to "JPLOAD". 

INPUT STATEMENT NA HE OF SUBROUTINE 

*ENTRY POINT NAME TRLOAD 

*L RELOAD 

*X EXECUT 

*P PREJOB 


Statements *ln and *3 are dummy statements which 

produce a J03n statement errori if requested and subroutine 
not present. These are provided so that the user may 
add statements with special functions- These must be 
loaded with a *YMi - Job Processor Load. 
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Input statements not recognized by the Job Processor 
■ti-e-T does not start with an asterisk}! are rejected 
and a J03i statement error informs the operator- The 
Job Processor then interrogates the specified device for 
a new statement. All other statements that are not 
recognized! but start with an asterisk! are assumed to be 
"entry point" name statements. 

The contents of Q. have been saved upon entry and are checked 
If d is negative! entry was made from the Namual Interrupt 
Processor! the M IB switch is cleared and input is requested. 
If d is positive! entry was made from JOBENT and a jump 
is made to SSI to process the Statement. 

The 1st character is checked for an asterisk. If not 
present! a JOB statement message is typed. The End 
and 3rd characters are checked against a table! and the 
proper routine is scheduled at the current priority level. 
Upon returning! J is typed out and another request to 
read is made. The previous loop is again executed. 

All Job Processor functions except the *Z return back 
to the J0BPR0 module to release FILE3 and wait for input 
of the next control statement. If a *Z has been input! 
exit is made to MONT where all files are released- 

Efl . H SUBROUTINE LOGIC 

Efi . 1 . E fIVTBL 


This routine moves the TRANTA table to the TRNTBL 
buffer in JOBENT prior to exiting to JOBENT* Once 
in J0BENT n the requested module is scheduled- 

Sfl.H.B JBKMIB 

This routine checks for the Job Cancel flag 
{ JBCNFGI set and if clear! sets the niB flag 
for job lockout. 

Efl.H.B JBKILL 

This routine checks the Job Cancel flag -CJBCNF6}- 
If set! exits to JOBENT to release FILES and jumps 
to the DISPATCHER to await entry from JOB KILL. 

If not set! return is to the caller with interrupts 
inhibited • 
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Efi.T.M BPLOAD *B (0 


This routine processes the *B statement. Upon 
entry the Breakpoint Switch {BPS! is set. Return 
is through the RF3 pseudo entry point. 


Bfl.T.S TYPEIN *U Q) 


This routine processes the *U statement which 
causes all control statements to be read from the 
comment device- Upon entry the constant $1AFD is 
stored in pointer to the comment device -CIUPP3-. 
The *V flag -CVRESET} is cleared and return is 
through the RF3 pseudo entry point. 


'O 


Bfl.T.b STDINP *V <0 

This routine processes the *V statement which causes 
all control statements to be read from the standard 
input device. Upon entry the constant SIAFT is 
stored in the pointer to the standard input device 
■CIUPP>. Return is through the RF3 pseudo entry 
point- 


BA-T-7 SETREC *SR <0 

This routine processes the *SR statement which 
indicates that recovery is desired- Upon entry 
the Recovery Indicator CRI> flag is set. Return 
is through the RF3 pseudo entry point- 


BA-T.A RESUME * (0 

This routine processes the * statement which 
causes the Job Processor to continue at the 
beginning of scratch- Upon entry the absolute 
location for load and gon $E4 is set to one- 
This location is unprotected. Return is through 
the RF3 pseudo entry point. 

Efl. c J. e i SGNOFF *Z (0 

This routine processes the *Z statement which 
marks the end of Job Processing. Upon entry the 
Job Processor not in core flag -CJOBINDl and 
the protect processor flag -CLOADINl are cleared- 
The LOADIN flag when set allows the loader to 
read and write below tjie scratch area on mass 
storage- The LGO -C$E4> location is then set to 
one- The address of the Request Exit -C^B^} is 
then stored in the RCTV table in NMONI for the 
Status -i Exitn Loadern Core and GETfile requests- 
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Set the protect fault return to the Dispatcher 
switch -CIPll and reset the *V switch. The recovery 
indicator -CRI> flag is then checked. If seti the 
flag is cleared and a jump is made to JOBENT to 
schedule RCOVERn otherwise Exit is made to RELFLE 
in HINT. 
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2*1.0 PROTEC . Protect Processor 

2*1.1 FUNCTION 

1. Analyze monitor call for invalid parameters . 

2. Set up entry to a Preset Entry Point. 

3. Initial ize entry to users completion address after 
completion of unprotected I/O. 

4 ■ Detect illegal or legal violations 

5. Read in the JBKILL module when requested. 

2*1.2 ENTRY POINT NAMES 

PRT Initial entry when PROTEC is scheduled in by JPLOAD- 

IPR0C1 Entry point when a Protect Violation occurs. 

2*1-3 EXTERNALS AND DESCRIPTION 

RCTV The table -tin Monitor Entry for Requests} which is 
indexed by request code and contains the location 
of each request processor. 

L0G1 Logical unit table {indexed by logical unit} 

which contains the alternate logical unit number 
and var i ous indicators. 

L0G1A Logical unit table {indexed by logical unit} 

which contains the core location of the physical 
device table entry correspond i ng to each logical 
unit. 

TBLE A table for Hex to ASCII conversion located in 
the Interna I Interrupt Processor. 

LOADIN A location in TRVEC which when non-zero* indicates 
that relocatable loading is in progress. 
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UNPIO 

UNPTIM 

JBCNCL 

SldAPCK 

UDADR 

J KIN 

JBCNF6 

TRNVEC 

PRORET 

TRANV 

FILE 3 

IP1 

LOCF 

LPTRS 

PROTEC 

JKILL 


A location in TRVEC which contains a count of 
the number of unprotected I/O requests in progress. 

A location in TRVEC which contains the number of 
unprotected TIMER requests waiting. 

Routine in TRVEC to schedule PROTEC when JBKILL 
is requested. 

Routine in DRCORE which decrements UNPIO on 
completion of an I/O request. 

A flag that when set indicates that the words 
addressable disk drives to be used* 

JBKILL in core flag CTRVEO 

Job Cancel wait flag CTRVEO 

Absolute address of the TRNTBL buffer in JOBENT 
■CTRVEO 

Holds return address to JPLOAD for PROTEC -CTRVEO 

Holds absolure address of TRANTA table in J0BPR0- 
CTRVEO 

Holds FUA of PROTEC when in core CTRVEO 
Entry points address of IPR0C1 CNIPROO 
Pointer to error processor routine. CTRVEO 
Holds address of PTRS in PROTEC. CTRVEO 
Mass Resident Protect Processor. 

Entry point to JBKILL module. 
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2=1.4 ENTRY INTERFACES 

When a protect violation occurs the Interna 1 Interrupt 
Processor transfers control to PR0TEC- The Protect 
Processor saves the machine state {<3rArI f PL1 and 
arbitrarily sets up priority level one pr i or to enabling 
i nterrupts • 

2=1.5 EXTERNAL INTERFACES 

Exit after a violation is as follows: 

Monitor Call - users completion address 

Preset - the preset entry point 

Legal Violation - user’s program at P+1 

Illegal Violation - Cancel the job and back to the Job 

Processor 


2=1.1= GENERAL PROGRAM INFORMATION 


This tab 1 e is 

indexed by request code. It contains the 

length of the 

parameter 1 i st 

in the upper 4 bits 

and the 

distance to the processors in 

bits 0-10* 


Bit 11=1 for 

requests which are stacked but not 

threaded 

RESTB ADC 

F-RESTB 



ADC 

Y-RESTB+ $b000 

READ 

1 

ADC 

Y-RESTB+$b000 

WRITE 

2 

ADC 

BB-RESTB+ $2000 

STATUS 

3 

ADC 

Y-RESTB+ $fc>000 

FREAD 

4 

ADC 

BB-RESTB+ $100D 

EXIT 

5 

ADC 

Y-RESTB+ $1=000 

FURITE 

t ) 

ADC 

BB-RESTB+ $1000 

LOADER 

7 

IF A 

TIMERS r E<3 r 1 



ADC 

X-RESTB+$3600 

TIMER 

a 

EIF 
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IFA 

TIMERS i E<3 r 0 




ADC 

F-RE(3TB 

TIMER 

fl 


EIF 





ADC 

X-R EG3TB+ £5500 

SCHDLE 

■=! 


ADC 

F-RE<3TB 

SPACE 

ID 


ADC 

BB-RE<3TB+$1000 

CORE 

11 


ADC 

F-REdTB 

RELEAS 

12 


ADC 

-CZ-RE(3TB+$200D} 

GTFLE 

13 


ADC 

U-RE(3GTB+$5DOO 

TAPE 

14 

STACK 





Length 

is 12N 

where N is the number of requests 

permitted 

on the 

stack 

at one time. Each si 

1 ot requ i res 12 

words . 

Bit 15 

of word 0 designates that 

the slot is in 

use i f 

set to 

1. 




Examples of the Protect Processor 

stack f o l l ows : 
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Zi.b.E.l Stack for READ-, WRITE-, FREAD-, FWRITE 


0 

1 

2 

3 

4 

5 
b 
7 

a 

=1 

10 

ii 
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2*1.13.2.2 Stack for TIMER Requests 


□ 

1 

2 

3 

4 

5 
b 
? 
a 

10 

li 
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5=1.7 GENERAL DESIGN PECULIARITIES 

CODE Largest request code +1 
N maximum number of stacked requests 


5=1. 7-1 Adding Requests 

To add requests it is necessary to add entries for each 
request code in REtfTB- Be sure that CODE is always 
one greater than the largest request code used- The user 
may process his request with any of the available 
subroutines {XtYtZtG-iJT or specify his own via PROCTB- 


2=1. 7-2 Stacking 

The maximum number of requests allowed to be stacked at 
one time is set to five- To change this it is necessary 
to change the value of N. This will automat i ca I I y set 
the size of the STACK table and all indices- 


5=1 • 7 . 3 Over I ays 

2=1. 7-3.1 Protect Stack 

Upon initial execution of PROTEC the area ^PRTA* 7 is used 
to place parameters into other areas which require them. 
After it is used to fix parametersr the area is cleared 
and then becomes the Protect Stack {TABLET. This table 
is used to stack unprotected parameter lists for 
execut i on • 

2=1. 7. 3. 2 AREA. - Equated to the area of routine C. 

This area is where the over I ay of the error routine and 
JBKILL begins. Routines which are in this area initially 
are not required after an error has occured or JBKILL is 
schedu I ed • 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 
Arden Hills Development DIVISION 


MAR 5 1971 


DOCUMENT CLASS INS PAGE NO 5^.10 

PRODUCT NAMF 1700 OPERATING SYSTEM 

PRODUCT MODEL NO E00b"3 • □ MACHINE serifs 17D0 


2T.6 PROGRAM LOGIC 

This program operates at level one and is not re-entrant 
as no protect violations occur above level 1- It processes 
all protect violations including illegal violations* and 
unprotected protected communication in unprotected monitor 
calls* It does validity checking for monitor calls which 
need i t . 

On initial entry to PROTEC a check is made to see if 
JBKILL is requested {<3 Neg.}. If requested a jump is 
made to the routine GET which reads in the JBKILL module 
and jumps to it to be executed. If not* a jump is made 
the routine PRTA which does some initial housekeep i ng * 
sets up the address of IPR0C1 in IP1 in NIPROC to handle 
interrupts and returns to the JPLOAD module -CPRORETI 
address . 

On entry to IPR0C1 after a Protect fault has occurred* 
the Protect Processor stores <3* A* I> P and priority* 
then sets up level one. The Protect Processor first 
attempts to determine if the violation resulted from a 
monitor call- This is done by examining the contents 
of the words which must contain ^54f4^ if the violation 
is indeed a monitor call. All monitor requests cause 
operation of subroutine A* which analyzes the request code 
and exits to the correct processor. 

Protect violations which are not monitor calls are analyzed 
in subroutine C- The violation is examined to see: 
fl} if an attempt was made to communicate with certain 
programs whose entry point names are in the list of preset 
entry points* IE> if it was a jump to the Dispatcher* or 
13} a violation from a legal instruction. 


Appropriate action is taken as follows: 

Preset - exit to the program whose entry is a preset 
Dispatcher - exit via a jump to the Exit request processor 
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Legal Violation - return to the users program at P+1 

{subroutine K> 

Illegal Violation - print the appropriate error message 

and schedule JBCNCL. {subroutine El 


5=1.6. 1 COMMUNICATION 

If the caller was at level zero, the Protect Processor 
must go through the dispatcher in order to operate any 
level one programs {completion routines} that were 
scheduled as a result of interrupts occurring while the 
Protect Processor was in operation. This must be done 
because if we immediately go to level zero, level one 
programs could be left waiting. This is not tolerable- 

In order to go through the dispatcher and also preserve 
the mark in the called routine, the Protect Processor 
then can safely cause entry to the called program with 
interrupts off. 

If the caller is at leve one. the entry is achieved 
without need for rescheduling. 


2=1 • H SUBROUTINE LOGIC 

2=1 • =1 • 1 Subroutine A 

This subroutine does preliminary legality checking of 

requests and passes control on to the appropriate processor. 

The legality checks are as follows: 

1. The Monitor Entry for Requests must contain a mark from 
the RTJ- {$F 4} . 

2- INDIR requests must point to an unprotected parameter 
list. 

3. Sign bit of word containing request code must always 
be zero- 

4. Request code must be less than CODE. 
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5. A processor must be resident. This is checked by 
examining the RCTV table to find out if the request 
processor, is patched in. Unpatched processors leave 
7FPF in the RCTV table in NMONl- 
lb 

Failure of any of the above checks will result in an 
illegal request diagnostic except for number one which 
will be flagged as a protect violation. 

Uhen the checks are completedf the REGJTB table is used to 
get to the next level processor. The processors available 
and their functions are: 

BB Passes the request to the Monitor Entry for Requests 
at the level of the caller. No further processing is 
done. Requests using this routine are: CORE 

STATUS 

EXIT 

LOADER 

F Gives an illegal request diagnostic and terminates 

the job. This is used internally and also for requests 
which are illegal from unprotected core. 

SPACE 

RELEAS 

{request code zero! 

X A special processor for TIMER and SCHDLE requests. 

Y A processor for READ-, WRITE-, FREAD-, and FWRITE requests 
Z A processor for GTFILE requests. 

U A processor for TAPE motion requests. 


ST • T • 5 Subroutine BB 

This subroutine is entered for requests which are not 
legality checked such as COREn STATUS-, EXIT^ LOADER and 
also to set up exit to a present entry point. 
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The Protect Processor schedules itself down to level 0 
in order to allow processing of any level one programs 
which may have occurred. Exit is then made to the return 
-CP+ request length} or to the preset. 

Subroutine X 

Operation begins with use of subroutine G and then is 
separate for TIMER and SCHDLE requests. 

TIMER requests are stacked in the Protect Processor 
stack and there await expiration of the delay. At 
expiration, the TIMER request count -CUNPTIMI must be 
decremented, the stack slot marked empty and the user’s 
program must be entered at the desired level. This is 
accomplished by saving the user’s completion address and 
substituting an address in the table to which a bookkeeping 
routine is moved. 

When the delay time expires, the bookkeeping routine is 
entered. After completing its operation, the bookkeeping 
routine exits to the user completion address via the 
SCHCMP routine. 

SCHDLE requests have their completion address and user 
parameter saved and the location of subroutine SCHCMP 
substituted for the completion address. In this way when 
the SCHDLE request is completed, the SCHCMP routine can 
complete release of the table entry and enter the user’s 
program . 

Subroutine Y 

This routine calls subroutines G. J and 1 in order to process 
READn WRITE-. FREAD and FURITE requests. It exits to sub-J 
routine H after updating the number of unprotected re- 
quests. and storing the location of the stacked requests 
in the user’s thread to set it non-zero. 
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ET.T.S Subroutine Z 

This subroutine calls subroutines G and J to complete 
preliminary processing and then performs the following 
legality checks peculiar to GTFILE- 

1- File buffer must totally reside in unprotected core • 
5. US must be greater than or equal to Ul. 

3. Specified sector numbers must not be negative. 


The following operations are also performed: 

1- A bit is set to tell the GTFILE processor that the 
request is unprotected. 

E. The pointer to the file name is adjusted for the 
requests position in the Protect Processor Table. 

3. The stack entry is set full. 


ST.T.b Subroutine G 

This routine first looks for an empty slot in the stack. 

If no empty slot exists and the ca I 1 er is at level zero, 
the request is repeated. If the caller is not at level 
zero the job is deleted because no empties can ever occur 
while we are at level one. since completion routines 
are executed at level one and. therefore, cannot be entered 
unt i 1 we exit. 

The following legality checks are performed: 

1. Completion address cannot be a directory call. 

E. Completion address cannot be protected. 

3. Thread for non-SCHDLE and non-TIMER requests may be 
zero. If a thread is found non-zero, the request 
is repeated for level zero callers and causes job 
termination for level one callers. The reasoning is 
the same as for the stack full condition. 
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The following operations are performed: 

1. Completion address is absolutized and stored 
in the first word of an open slot. 

2. Ten words of the request are moved to the slot 
starting at word two of the slot which contains the 
request code word- 

3. The common completion address is stored in the 3rd 
slot cell so completion bookkeeping can be done. 

M . Request priority is set to zero in stack- 
s' Completion priority is set to one in stack. 

fe>. X is set to zero in the stack. 

7. The location of the user request is saved in the 
I ast cell of the slot. 


2T. C 1.7 Subroutine J 

This subroutine performs the following operations: 

1. Absolutize logical unit and store in stack. 

2* Absolutize starting address and store in stack. 

The following legality checks are performed: 

1* Logical unit must be less than or equal to the largest 
and not zero or one. 

2- Starting address must be unprotected for read type 
requests . 

2 <= i - T - S Subroutine L 

The following operations are performed: 

1. Length of block in transfer is absolutized and stored 
in stack. 
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2. If starting address is indirect* move sector number 
to stack for requests involving mass storage. 

3. For requests to the library unit* add scratch sector 
start to sector number unless loading is in progress, 
{lets Loader get at library}. 

4. Set stack entry full. 


2 C ). C 1. C 1 


21 . = 1- 10 


2 c ). c ).ll 


The following legality checks are performed: 

1. The buffer must be in unprotected core for read 
type requests. 

2. Sector number must be non-zero and positive. 

3. A call may not read a write-only device or write a 
read-only device. 


'v-V 


Subroutine H 

This subroutine makes one indirect call pointing at the 
second word of the slot* thus executing the legal request 
stacked there. It then calculates the proper return to the 
caller and confirms that the return is unprotected. 
Violation of a return to be unprotected will cause a 
protect violation diagnostic- Subroutine continues on to 
subrout i ne K . 

Subroutine K 

This subroutine makes a phony entry in the interrupt stack 
and then exits to the dispatcher to effect return to a 
caller after a legal request has been initiated. 

Subroutine CCP 

This subroutine is entered upon completion of each I/O 
call from unprotected core. It does final bookkeeping 
and enters the users completion address- 



AA 3777 


PRINTED IN USX 



CONTROL DATA CORPORATION 

Arden Hills Development DIVISION MAR 5 1971 


DOCUMENT CLASS _U1S PAGE NO 

PRODUCT name !?□□ OPERATING SYSTEM 

PRODUCT MODEL Kin ED0b"3.Q MACHINE SERIES 17P0 

ST-T-IS Subroutine W 

This subroutine analyzes Tape Motion Control requests. 

1. Checks legality of the logical unit. 

2. Confirms that parameters are within range. 

3. Checks to see if device is protected. 
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30.0 JBKILL JOB KILL MODULE 

30.1 FUNCTION 

This module is used by the Job Processor to terminate 
processing and prepare for the running of the next job. 

30.2 ENTRY POINT NAMES 
JKILL 

30.3 EXTERNALS AND DESCRIPTION 

INTSTK Location of Interrupt Stack CSYSBUFJ 

UNPTIM Contains number of unprotected timer requests 
waiting. CTRVEO 

VRESET *V Reset Flag CTRVEO 

FILE3 Contains address of PR0TEC when JBKILL is in core 
CTRVEO 

IUP Pointer to comment device CTRVEO 

L0ADIN Loader in core flag CTRVEO 

UNPI0 Number of unprotected 1/0 requests waiting CTRVEO 
REC0V Abs. Addr. of REC0VR routine in J0BENT CTRVEO 
JBCNFG JOB Cancel Flag CTRVEO 

TRNVEC Contains address of TRNTBL buffer in J0BENT CTRVEO 
JBPROE Contains Address of JBPR0 routine in J0BENT CTRVEO 
JKIN JBKILL in core flag CTRVEO 

30*4 ENTRY INTERFACES 

This routine is entered from the Protect Processor when 
JBKILL is requested. 

30.5 EXTERNAL INTERFACES 

Normal exit from JBKILL is to J0BENT where J0BPR0 is 
scheduled with an index to the RF3 routine within J0BPR0. 

If the Recovery Indicator CRI> is setn exit is to the 
REC0VR routine in J0BENT where the RC0VER module is scheduled 
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30. b GENERAL PROGRAM INFORMATION 

JBKILL is brought into core only when the JBCNFG {Job 
Cancel Flag} is set. TRVEC checks this flag and if seti 
sets <2 negative and schedules PR0TEC. PR0TEC determines 
the JBKILL is requested and reads its error processing routine 
and JBKILL into an overlay area within PR0TEC. A jump 
is then made to the area to begin execution. 

30.7 GENERAL DESIGN PECULIARITIES 

JBKILL must be installed on mass storage immediately 
after the Protect Processor in order for it to be read 
in properly by PROTEC. 

30. A PROGRAM LOGIC 

Whenever an unrecoverable error is detected in an unprotected 
programn this module is scheduled. The following errors 
cause this to happen: 

1- Illegal 1/0 format 

3. Protect violation 

3- Illegal parameter in a GTFILEi LOADER-. CORE or STATUS 
request. 

4. No transfer address when requested to execute a program. 

The address JBCNCL in TRVEC is scheduled at level 3 by 
the PR0TEC Processor or the JPL0AD module- JBCNCL in turn 
schedules PR0TEC which reads in JBKILL* The following events 
occur when JBKILL is executed. 

1. The Job Processor Loader in Core Flag CL0ADIN1 is set 
to zero-, the *V flag {VRESET} is cleared if set and 
IUP is set to the comment medium. 

3. The first word of each slot in the unprotected request 
slot in the Protect Processor is set to zero- 
3- All interrupted stack entries referring to unprotected 
return locations-, level zero and one priority are set 
to the address of the Dispatcher except for request 
EXIT locations. 

M. Schedule self down to level zero* 

5. If the recovery switch {RI> is seti a jump to JOBENT 
to schedule the System Recovery module {RC0VER} is 
made after clearing the RI switch. If noti a jump 
is made to the JBPR0 routine in JOBENT to schedule 
the J0BPR0 module with an index set to the RF3 routine 
within J0BPR0. 

30. T SUBROUTINE LOGIC 
NONE 
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31. □ JPL0AD 


31.1 FUNCTION 

This module contains the Processing for all Loading Type 
Job Processor requests and does the scheduling of the Protect 
Processor if not in core. JOBENT schedules JPL0AD at 
priority level zero which allows these requests to be inter- 
rupted by other Job Processing Type statements. The state- 
ments processed in this module are *Li *Pn *Xi and * entry 
point ■ 

31.2 ENTRY POINT NAMES 


JBL - JPL0AD entry point 

JP1 - Return from scheduling Protect Processor. 
31-3 EXTERNALS AND DESCRIPTION 


TRNVEC -CTRVECJ 
PR0RET -CTRVECJ 
JBPR0E -CTRVECJ 
RELS1A -CTRVECJ 
PR0TEC 

L0G1A -CSYSBUFJ 
MIB {MINT J 


LIBET -CTRVECJ 
JBCNCL -CTRVECJ 
JBCNFG -CTRVECJ- 

TRANV -CTRVECJ 
IUP -CTRVECJ 

L0ADSD 

L0ADIN -CTRVECJ 


Abs. Addr. of TRNTBL buffer in J0BENT. 

Return Addr. for PR0TEC 

Abs. Addr. of JBPR0 routine in J0BENT. 

Abs. Addr. of RELF routine in JOBENT. 

Mass Resident Protect Rocessor. 

Entry point to the L0G1A table in SYSBUF. 

Manual Interrupt Busy Switch. Zero = 
not busy. Non-zero = busy. Must be 
set to zero before another manual interrupt 
can be processed. 

Holds the address of the routine in JOBENT 
that schedules LIBEDT. 

Entry point to the routine that schedules 
PROTEC* 

Job Cancel Flag which tells the Protect 
Processor to stop honoring requests from 
unprotected core. 

Contains the absolute address of the Job 
Processor transfer table. -CTRANTAJ 

Pointer to the comment device. Used by 
the Job Processor transfer {initially set 
to SlflFDJ. 

Contains an index to the FlilA of the mass 
memory System Directory entries. 

Flag for the protect processor to allow 
the loader to read and write below the 
scratch area on mass storage. 
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JPRET -CTRVEO 
JPRET1 -CTRVEO 
JPRETN -CTRVEO 
FILES -CTRVEO 


Entry point to the table of preset entry 
points that allows entry to a protected 
routine from an unprotected routine- 

Used to save the return address in T7 
or in JPL0AD when either module calls 
the loader- 

Return is made from the loader through 
JPRETN which has been entered in the 
preset tables by T7 or JPL0AD- 

Contains the absolute location of JPL0AD 
as associated with this module. 


FILE3 -CTRVECl 
L0G1 -CSYSBUF} 
BRKPT 

UNPI0 -CTRVEO 
SUAPCK -CDRC0RE1 


Contains the Absolute location of the 
Protect Processor when in core- 

FUA of L0G1 table- Contains the largest 
legal Logical Unit Number- 

Contains an index to the FUA of the mass 
memory System Directory entry for the 
Break Point Program. 

Contains the number of 1/0 calls pending- 

Entry point to the SUAPCK routine in 
DRC0RE- Used to decrement UNPI0 when 
unprotected 1/0 is completed- 


31 - M ENTRY INTERFACES 


JBL - Entry to JPL0AD module is scheduled by J0BENT module- 
JP1 - Entry to JPl is made after scheduling in the Protect 
Processor - 


31- S EXTERNAL INTERFACES 

The normal Exit from JPL0AD is to J0BENT where J0BPR0 is 
scheduled and executed according to the parameters passed 
from JPL0AD- If an error on loading was made-i exit is to 
J0BENT to release FILEE and jump to the Dispatcher awaiting 
JOB KILL execution. 


31- b GENERAL PROGRAM INFORMATION 

31-t-l Table of Job Processor Loader Type Requests 

The following table is used to analyze the loader 
type statements. . 
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TAB1 


CONSTANT 

350FF 

5MCFF 

$5fiFF 

SMC5C 

SSA2C 


FUNCTION 


statement 

statement 

statement 


Lt statement 
Xt statement 


31. b. 5 Table of Job Processor Input Statement Subroutines 


The following table is used in indexing to the 
loader subroutines as determined by the input 
statement- 


TABLOC 


Relative 

Address 

Statement 

PREJOB 

*P statement 

RBLOAD 

*L Q statement 

EXECUT 

*L © statement 

RBLOAD 

*Ln statement 

EXECUT 

*Xt statement 

TRLOAD 

Gentry point state 


3l.fc>-3 Table of Absolute Locations in J0BPR0 

The following table is transferred from JOBENT and 
is used to access its locations. 


TRANTA - 
INPBUF - 


BPS 

RI 

LOADEP - 
GREG 
STCK 
NN 


Abs. location of JOBTUO 

Relative loc. of JO0P3 to JOBTUO 

Absolute address of input buffer 

Relative loc- of JOBP to JOBTUO 

Relative loc. of J04 to JOBTUO 

Relative loc- of J03 to JOBTUO 

Lock out Flag - L0 

Break-point load flag - BPS 

Recovery Indicator - RI 

Loc- of loader entry point is present 

Request no. 

Abs- loc. of stack 

N Value - Number of stacked requests 


31-7 GENERAL DESIGN PECULIARITIES 


31-7.1 JPLOAD has its own decimal ASCII to HEX -CASCHEXJ- 
conversion routine- This routine is entered from 
the RELOAD subroutine. Before entering ASCHEX 
the address +1 of the input buffer is multiplied 
by two. The product is used by ASCHEX to check 
for an input of two numbers. 

31*7.5 LOADSD contains an index to FUA of Mass Memory 
System Directory. 
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31- A PROGRAM LOGIC 

Upon entrance to JPLOAD its FUA is saved in FILE2 in TRVEC. 

A check is then made to see if the Protect Processor is in 
core. If noti PROTEC is scheduled into core- Execution 
resumes at JP1 in either case* The locations from the 
transfer table -CTRNTBL} in JOBENT are then transferred 
to JPLOAD. 

The loader type input statements are then analyzed to 
determine which subroutine is to process the statement- 
A return jump is then made to the proper subroutine. 

The input statements and the subroutines that pr ocesses 
them are as follows: *p to PREJOBt *L to RBLOADi 

*X to EXECUT-, *Ln n 9 to RBLOAD-, *X-,N O to EXECUT 

and * entry point <^> to TRLOAD. 

The LOADER subroutine jumps to and is returned from the 
loader- 

The ASCHEX routine is entered from RBLOAD to convert from 
decimal ASCII to HEX-, the logical unit specified in the 
*L-> n statement- 

The exits from this program are to JOBENT where the proper 
module is scheduled according to the parameter passed from 
JPLOAD. 

31- T SUBROUTINE LOGIC 

31 -T-l TRLOAD Gentry point statement 

Upon entry to TRLOAD a check is made to determine 
if the job processor statement is *LIBEDT. If 
true a jump is made to LIB in JOBENT to schedule 
LIBEDT-, otherwise-, pick up the address of the input 
buffer and return jump to LOADLR to load the program 
If an error on loading was made schedule JBCNCL 
at level 2 and jump to JOBENT to release FILE2. 

If no error-, save the transfer location-, clear 
the address of the breakpoint program -C$F3 >t 
pick up and save the address of the transfer vector 
table and jump to EXfi in the EXECUT subroutine to 
execute the job. 

31.T.2 RBLOAD *L-,N cr load relocatable binary program 

This subroutine instructs the loader to load 
relocatable binary information. Once initiated! 
the loader continues loading until it reads an 
EOL block or a system control statement. 
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N specifies the logical unit number for the loading 
devicei but if not specified! *L! the standard input 
device is used* The given logical unit number is 
checked for being negative or larger than the largest 
Logical Unit Number* If Logical Unit Number is in 
error! the 04i statement message index is set up and 
a jump is made to JOBENT* If logical unit specified 
is zero! the standard input device is used* The 
loader keeps track of the upper and lower limits of 
available core! and adjusts limits according to the 
amount of core allocated during input* 

The general routine "LOADLR" is called to communicate 
between loader and statement processor. A and Q 
registers are set up for the specific type load oper- 
ation and the "LOADLR" routine is return jumped to* 

It protects the return location and stores the address 
of that address in the communication region {$EEI 
and the first preset entry -CJPRETJ* After returning 
from the loader! that location is protected again and 
interrupts are immediately enabled* The return flags 
are checked for any recoverable error! Job Processor 
statement readi or a successful operation* The index 
to RF3 in J0BPR0 is set up and a jump to JOBENT is 
made • 

Bl.T.B EXECUT *XiN execute the loaded program 

This subroutine instructs the job processor to begin 
program execution^ it must be used after an *L state- 
ment* If N is blank! the loader is directed to pro- 
duct a memory map after loading* If N is not blank! 
no memory map will be produced* 

Upon entrance! a subroutine load is requested which 
detects any unpatched externals and searches the 
program library directory for a matching name* After 
patching all externals possible! the loader returns 
to "EXECUT"* A check is made for irrecoverable errors! 
if any are foundi control is transferred to JOBPRO 
to read the next control statement* 

A check is made to see if a map is desired. If so! 
it is requested* The I register is checked to see 
if the program has been loaded on mass storages if soi 
it is brought into core* 
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The breakpoint switch is then tested. If this 
switch is zeron a jump is made to JOBENT to schedule 
JPT13 with the transfer location SAVA in the Ct 
register- If the switch is seti the breakpoint 
routine is loaded from mass storage and stored 
in unprotected core. A check is made to see if 
it will fit into unused unprotected corei if noti 
a loader type error message is given: 

ES 

E1Q 

BRKPT 

and control is passed to the Job Processor to 
read a new statement. 

After loading the breakpoint routinen its entry 
location is stored in $F3- The (2 register will 
contain the transfer location of user's program! 
and a jump is made to JOBENT to schedule JPT13 
and begin execution- 

31.1.4 PREJOB *P 

This subroutine handles preload intiialization. 

That isi temporary upper and lower limits of 
available core are set to unprotected limits- 
The relocating loader is read into the highest 
unprotected core available- The entry location 
to the loader is stored in "LOADEP" which is used 
by other routines to check if the loader is in 
core- 

The *P statement must be used prior to any loading 
operation that is to be independent of previous 
loading operation. 

31.1-5 ASCHEX Decimal ASCII to HEX conversions routine 

This routine is entered from the RBLOAD subroutine. 
It converts the decimal ASCII Logical Unit Number 
specified in the *LtN statement to hexidecimal- 
This routine checks for a legal ASCII numbers 
between $30 and $31 and also checks if larger than 
$31- This routine does not do the checking 
for a valid Logical Unit Number- This is done 
when control is returned to RBLOAD. If an error 
is detectedn fl is set to $FFFF and control is 
returned to RBLOAD. 
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( 


JPCHGE - ASCHEX 
FUNCTION 

This module processes p-oK and «rV statements allowing the 
operator the option of selecting devices for system 
units other than those currently used* 

ENTRY POINT NAMES 

JPCG 

CHANGE 

EXTERNALS AND DESCRIPTION 

NUMLU Number of logical units in system {SYSBUF} 

ASCHEX Decimal ASCII to hex conversion routine 

IUP Contains location of input comment device 

■CTRVEO 

TRANV Contains location of TRANTA table in 

JOBPRO CTRVECI 

FILE3 Contains absolute address of JPCHGE when 

in core. 

L0G1A Table containing Phystb addresses for 

logical units {SYSBUF} 

HIB-iPIIBX Flags in manual interrupt processor -CMINT} 

JBPROE Holds absolute address of JBPRO routine 

in JOBENT {TRVEC1 

MIBUF Holds absolute address of MIPBUF buffer 

in JOBENT {TRVEC1 


C 
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32.4 ENTRY INTERFACES 

JPCG This entry point is scheduled by JOBENT 

CHANGE This routine does the processing of the input 
statement. 

32. 5 EXTERNAL INTERFACES 

Norma I exit is to JOBENT where J0BPR0 is scheduled 
with an index to RF3. In case of an error > the error 
message is output within JPCHGE and exit is again to 
RF3 . 

32. b GENERAL PROGRAM INFORMATION 

Input Format 

"K i I1 1 L1 1 PI cr 

I logical unit number ,f>, 

I system input unit 

L system print unit 

P system punch unit 

li m cr 

I logical unit number 

m A or B 

A - formatted ASCII mode 
B - formatted binary mode 


32.7 GENERAL DESIGN PECUl^ARIT IES 

None 

32. fl PROGRAM LOGIC 

This routine may be entered via the job processor 
■CJ0BPR0} or the manua I interrupt processor {MINT! • 

If entry was via MINT the <3 register will contain 
the location of the input buffer and exit will be 
made by clearing the MIBX flag and scheduling a 
re I ease of this module with no return. If entry 
was via J0BPR0 the absolute location of JPCG will be 
put into FILE2» the location of input buffer will be 



AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 
Arden Hills Development DIVISION MAR 5 1971 


DOCUMENT CLASS _U1S PAGE NO 3S»3 

PRODUCT name 1700 OPERATING SYSTEM 

PRODUCT MODEL NO E00b-3«D MACHINE SERIES 17D£ 


found from the transfer vector table buffer of JOBENT 
and the NIB flag will be cleared* The exit will be 
made to RF3 in JOBPRO iva JOBENT* Entry determination 
is made by checking the priority leveli if zero entry 
thru JOBPRO is assumed* 

The processing of the input statement is done thru the 
subroutine called "CHANGE" which in turn calls "ASCHEX" 
to translate the input statement* After the statement 
has been broken down to into characters and logical unit 
ordinalsi each character is checked for equality with 
one of the expected characters* The logical unit 
ordinals are checked for valid numbers and a check 
is made in the physical device table! word fin to in- 
sure the device is available to unprotected programs 
and is available for reading or writing from unpro- 
tected programs* In addition! the *V statement checks 
if a mode was selected and sets bit IE in the specified 
communications region location if ASCII or no mode 
was selected* After completion of validation checking 
the ordinal is placed in the specified communication 
region location if no error occured* 

If an error occured! a message is output and an exit 
is made bypassing any remaining parameters* Possible 
errors messages are: 

JOM - Illegal or unintelligible parameters in the 
control statement* 

JO? - Device not available to unprotected programs* 

JOfl - Either a read device has been assigned to a 

write only ordinals or a write device has been 
assigned to a read only ordinal* 
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32. 1 SUBROUTINE LOGIC 

3E.T.1 ASCHEX - this subroutine translates the input 

statement. 

As passed by ^CHANGE* 7 . It in turn passes one character 
at a time to ^SUB* 7 for interpretation . 

Parameters for ASCHEX are: 


Register 

Upon Entrance 

Upon Exit 

A 


+1 error 

□ more words following 
-1 no words follow 

<3 

Loc to store 
ALPHA char 

Hex number 

I 

Loc of char 

Loc of next character 


Parameters for SUB are: 


Character 

Return 

Registers 

Found 

A 

a 

connA 

D 

0 1st char 


0 

-1 2nd char 

$FF 

-1 

-1 

NO. 

0 

0 

CHAR 

□ 

0 

ERROR 

+ 1 

-1 
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33.0 RESTOR RESTORE LOGICAL UNIT 
33.1 Function 

This routine informs the 17DD Operating System that action 
has been taken to restore the device to an operable state 
and it is now ready for I/O. 

33.3 Entry Point Names 

RSTR Restor Entry Point 

33.3 Externals and Description 

MIB Manual Interrupt Lookout flag {MINT> 

MIBX Manual Interrupt Lookout flag {MINT> 

L0G1 Logical Unit table {indexed by logical unit> which 
contains the alternate logical unit number and 
various indications. {SYSBUFI 

JBPROE 

JBPROE Holds Abs. Addr. of JBPRO routine in JOBENT. {TRV^O 
MIBUF Holds Abs. Addr. of MIPBUF buffer in JOBENT. {TRVEO 

FILE2 Holds FlilA of RESTOR when in core. {TRVEO 

L0G1A Logical Unit Table {indexed by logical unit! which 
contains the core location of the physical device 
table entry corresponding to each logical unit. 


33. M Entry Interfaces 

This routine is scheduled into core by the JOBENT control 
module when it has been determined that a "Rilu state- 
ment has been entered. 

33. S External Interfaces 

Normal exit is the JBPRO routine in JOBENT where J0BPR0 
is scheduled with an index to the RF3 routine within 
J0BPR0. If an error occurs a JOM message is output and 
exit is also through JOBENT to RF3 in J0BPR0. 

33. L General Program Information 

If this program is entered at a priority level greater 
than zero the RESTOR routine releases itself before exiting 
back to the caller. 
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33*7 General Design Peculiarities 
None 

33«fl Program Logic 

Upon entry to RESTOR the current priority level is 
checked and if greater than zero the input buffer 
address is in the Q register* If zeroi pick up the 
buffer address in JOBENT and return jump to the ASCHEX 
subroutine to convert the logical unit number specified* 
Upon returning a check is made for a Logical Unit number 
errori and if so a JD4 error message is output and control 
is returned to the caller* If no error the logical unit 
down bit is reset in the respective entry in the LOG 1 
table in SYSBUF and the message flag bit {bit 6} in the 
first word of the logical units phystb is cleared* This 
message flag bit is reset for all devices that share 
this phystb* The restore device bit {bit 11 }t used by 
FRNt is then set in the L0G1 table entry for this logical 
unitn and the message LU xx RESTORED is output* Control 
is then returned to the caller. 

33*^ Subroutine Logic 

ASCHEX - This routine connects the decimal ASCII logical 
unit number entered to Hexadecimal* Error checks are 
made for more than two characters enteredn characters less 
than $3D and greater $3T* If an error occurs the <3 
register is set to negative zero and control returns to 
the caller. If no error is detected! the converted 
logical unit number is saved in the A register and control 
is returned to caller. 
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34. □ T13 GET-FILE REQUEST PROCESSOR 

34.1 Function 

This request is used to access permanent files in the 
program library. It is loaded under an *YN-, JPT13 
load-, for mass storage resident programs. This routine 
will be brought in just before going into program execu- 
tion and will be in core only during execution of a user^s 
program^ i-e.-, while *X Job Processor statement is in 
effect. Upon termination of a job-, i.e.-, J0BKIL-, normal 
EXIT-, or SIGN0FF-, *JPT13* module will be released. 

34- E Entry Point Names 

EREflST - Initial Entry Point 

T13 - Entry Point to Process GTFILE requests. 

34.3 Externals and Description 

SCHERR Error processor in SCHEDu 

SliJAPCK Routine in DRCORE which decrements UNPIO on 
completion of an unprotected I/O request. 

LOCF Pointer to F routine in PROTEC -CTRVEO 

LPTRS Pointer to PTRs in PROTEC {TRVEO 

FILES Holds FldA of T13 when in core -CTRVEO 

NIB Nanual Interrupt lockout flag -CNINTI 

RCTV Request Code Transfer Vector table -CNNONIJ 

34.4 Entry Interfaces 

The initial entry to T/13 is to the EREcJST routine. 

This routine calculates the absolute address of T13 and 
stores it in the RCTV table in NNONI and jumps to Breakpoint 
program if requested or to the program to be executed. 

The T13 entry point is entered when a GTFILE request 
is made. 

34.5 External Interfaces 


Exit is made to REflXT after setting up the internal 
thread. After a GTFILE read request is initialized 
exit is to the Dispatcher. 
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34. b General Program Information 
34.b.l GET-FILE CALLING SEQUENCE 

Request Code 13 


RTJ- {* 

?F4> 

□ 

IS 

RC 

14 1 

X 

a 

rp 

7 4 

<=P 

3 □ 

C 

Thread 

V 

IS 13 

P 

15 

a 

11 10 

ca 

1 □ 


U1 


S 


bJ2 


i 


Host significant bits of N 
Least significant bits of N 


where - 

RC Request code for get-file is 13 

c Completion addressi address of core location to which 
control transfers when an I/O operation is completed. 
If omitted! no completion routine is scheduled, c 
in parentheses! represents an index to system library 
directory! indicating the program to be executed upon 
completion of an I/O operation. Use of this option 
{parentheses! by unprotected programs results in 
job termination. 

Completion routines are operated by threading the I/O 
requests on the schedule thread. 
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c 

Meaninq of c 

- 

{c > 

c in parentheses represents an index to the 
system directory! x has no meaning. 

□ or 
blank 

c 

Completion address is ci a jump to c will 
be made. 

* 0 and 

* blank 

c 

c is a positive increment that is added to 
the address of the first word of the para- 
meter list to form the actual completion 
address . 

Address 

increment n 

a positive increment that is added to the 


address of the first word of the parameter list to form the 
address of the first word of a three-word block containing 
the ASCII name of the file. Locations before and after the 
request can be accessed because of wraparound in adding. If i 
is in parentheses! the parameter is the actual address of the 
first word of a three-word block containing the file name. 

Starting address of' the block into which the file! or portion 
of the filei is to be transferred, s and x are related as 
follows: 


X 

s 

Meaninq of s 

= 0 or 
blank 

s 

s is the starting address. 

t 0 and 
/ blank 

s 

s is the positive increment that is added 
to the address of the first word of the 
parameter list to form the starting address. 
Wraparound allows the starting address to 
be ahead of or behind the parameter list. 

= 0 or 
blank 

-CsJ 

s is a core location which contains the 
actual starting address. 

/ 0 and 
t blank 

•Cs> 

s is a positive increment that is added to 
the address of the parameter list to form 


the address of a location containing another 
positive increment. This second increment 
is added to the address of the first word 
of the parameter list to form the actual 
starting address. 

Both increments may reference locations ahead 
or behind the parameter list because of 
wraparound in adding. Return from the re- 
quest processor is to the location follow- 
ing -Cs>. 
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wItwE First and last wordsi if only part of the file is 

desired. The parameters must be blank if the 
entire file is to be used. An attempt to read 
beyond the end of the file is honored if it does not 
destroy the system- 


x 


Relative/ indirect indicator. 


cp 


rp 


P 

SYMBOL 

v 


Priority of completion address-i the level at which 
the completion address is to be executed. Always 
one for unprotected requests. 

Priority of mass storage requests needed to complete 
a GTFILE request. Always Zero for unprotected 
requests. 

Protect Processor sets bit IE if unprotected 
request . 


Meaning 

Error code passed to completion address in bits 
13-15 of (3 and set in the request by the system 
at completion. The settings of v are indicated 
below. 


□□□ No I/O error - n words transferred 

□□1 Unused 

DID No I/O error - less than n words transferred 


Oil Unused 

IDO Unused 

101 I/O error - n words transferred 5 , error due to 

device failure 

110 I/O error - less than n words transferred 5 ; error due 

to device not ready. 

111 I/O error - less than n words transferred 5 , error 
due to device failure 

The last two words of a get file contain the sector number of the 
first word of the file. If this number is unknown the two 
words should contain zero. In this casei the ^GTFILE^ searches 
for the file and stores the starting sector number in the two 
words • 
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Thread This contains a non zero value if stacked or 

currently being processed. The thread will be 
cleared before scheduling completion routine. 

34.b.S INTERNAL FLAGS 

T1310C Absolute location of get-file 

GFBUSY Get-file busy switch-, pointer to current 
parameter list location 

GFTHED Get-file thread pointer to location of next 
request parameter list. 

34.7 GENERAL DESIGN PECULIARITIES 


The T13SUP routine will be overlaid by the GTFILE 
buffers. 


34. a 


PROGRAM LOGIC 

The initial entry to T13 is made at EREC3ST. A jump is 
then made to the T13SUP routine which saves the absolute 
address of T13 in FILES in TRVEC. This entry point 
address of T13 is then calculated and stored in the RCTV 
table in NMONI. The MIB flag is cleared and control 
is transferred to the breakpoint program if requested. 

If breakpoint is not requested a jump is made to the 
execution address brought in the <2 register. 



Upon entrance to get-file-. the thread in the parameter 
list is set to $FFFF. The get-file busy switch is 
checked^ i.e.-, if non-zero-. it contains the address of 
current get-file request processing. If busy-. a check 
is made to see if requests are already threaded. If not-. 
^GFTHED* is set to the request location. ^GFTHED* de- 
fines the location of next request to be processed. If 
^GFTHED" contains an address pointing to a request-, the 
thread in this request is checked for SFFFF-. if address 
specified-, next request is checked and so on. If thread 
contains 5FFFF-. the thread is replaced with address of 
request to be processed. After setting up Thread-, an 
exit is made to the request exit -CREC5XT} module. 

Execution of Get-file requests are broken down into three 
parts. 

1. Get file parameters are computed. The Program 

Directory is searched for given name of a permanent 
file on the library. If U1 and US are specified-. 
*C0MP* address is set as Completion address and one 
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sector is read into the Get-file buffer. If the 
complete file is specified -Cno U1 and 05 given! 
*C0nPl* address is set at the completion address and 
the complete file will be read in. After either 
Read request is initialized! control is returned 
to Dispatcher. 

5. Uponi entrance to ^COMP* data from the get-file 

buffer will be transferred to request Buffer. If any 
more data needs to be transferred CDMP1 address 
is set as completion routine and a Read request is 
made to bring rest of file into request buffer! after 
request is initialized! control is returned to 
Dispatcher. 

3. *C0MP1* calls request completion routine! checks for 

threaded requests! clears flags and returns to user-'s 
program if not threaded. If a request is pending 
it is set up to be processed and group one above is 
repeated. 


ERROR CHECKS 

The following errors will cause the message J05 t hhhh to be 
printed out and control passed to the Job Kill portion of Job 
Processor. 

1 No sector number and file name specified. 

5 A sector number given but no file name or start and stop 

location specified. 

3 bJ3 specified -Clast word} and is greater than number 
of words in file. 

4 Unprotected request exiting to protected locations. 

5 No Library Directory. 

b Name not in library directory. 

7 If request already threaded -CSCHERR} 
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3S.1 PROGRAM FUNCTION 

The library editing program is a mass storage resident 
program that is called into execution in protected 
core by the Job Processor to perform the following 
functions : 

a. Listing the program library directory 

b. Listing the system library directory 

c. Absolutizing and punching relocatable binary input 

d. Replacing programs in the system library directory 

e. Deletion! replacement and addition of programs in 
the program library 

f • Deletion of permanent files from the program library 
g- Insertion and update of files in the program directory 

h. Setting request priorities in the system directory. 

i. Tranfers of records between any two peripheral devices. 


35. E 


35.3 


ENTRY-POINT NAMES 
LBDT 


EXTERNALS AND DESCRIPTION 


FILES 

SWITCH 

UNPIO 

SUAPCK 

L0G1A 


Location in TRVEC which contains the absolute 
starting address of LIBEDT when it is in core. 

Flag in TRVEC which is checked by LIBEDT 
before most input or output to determine if 
the job is to be terminated. 

Location is TRVEC which contains the number of 
unprotected I/O requests in progress. 

Routine in DRCORE used to decrement the number 
of pending unprotected I/O requests. 

Logical unit table {indexed by logical unit! 
which contains the core location of the 
physical device table entry corresponding to 
lack logical unit. 
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NUMLU 

pcomfl 

LIBEDT 


Number of Logical Units in SYSBUF 

Protected Common Flag in TRVEC used by the 
loader to insure Protected Common is not 
entered during a loader operation. 

Entry for LIBEDT in the System Library Directory 


35.4 ENTRY INTERFACES 

LIBEDT is scheduled for execution by JOBENT in response 
to a "LIBEDT statement from the Job Processor or the 
Manual Interrupt Processor. Upon entry LIBEDT^s starting 
address is stored in FILES in TRVEC to be used by the 
JOB Processor to release LIBEDT when its operations 
are completed. The <2 register contains the return address 
to the JOB Processor and is saved upon entry • 

35.5 EXTERNAL INTERFACES 

Exit from LIBEDT will occur for any of the following 
three conditions: 

a> a "Z command is presented from the input comment device 
by the JOB KILL switch in TRVEC is set. 

c> a fatal error during an overlay operation within LIBEDT. 


In all cases exit is made by a jump to the return address 
in the JOB Processor saved upon entry. 

35. b GENERAL PROGRAM INFORMATION 
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35 • b • 1 CORE AND HASS STORAGE LAYOUTS OF LIBEDT 


EXECUTIVE 

MODULE 


STARTUP 

ROUTINE 


MAIN 

CONTROL 

MODULE 


Lina 


STATEMENT 

PROCESSORS 


AREA3 

SUBROUTINES 


AREA4 

SUBROUTINES 


EXECUTIVE 

MODULE 

•CAREAII 

i 


EXECUTIVE 

MODULE 

MAIN 

CONTROL MODULE 
{AREAS & AREA3I 

(O' 

v> 

\0 

STATEMENT 

PROCESSOR 



AREA3 

SUBROUTINES 

AREA4 

SUBROUTINES 

\ 

f 

AREA4 

SUBROUTINES 


Figure *5 
CORE LAYOUT WITH 
MAIN CONTROL 
MODULE ACTIVE 


Figure *3 
CORE LAYOUT WITH 
A STATEMENT PRO- 
CESSOR ACTIVE 


Figure *1 

MASS STORAGE LAYOUT 
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Group 

No. 

Subr • M-.S. 
ADDR. 

RELOC. 

FACTOR 

SUBROUTINE 

INCREMENT 

SUBROUTINE 

NAME 

1 

MASLOC-LBDT 

MSLOC 

□ 

MASLOC 




M0VIT1 

MOVIT 

A 



RDIN1 

RDIN 

R 



SETCR1 

SETCRR 

E 



GETCR 

GETCOR 

A 



RBL0D1 

RBLOD 

3 



L0AD1 

LOAD 




M VCST1 

MVCST1 




ST4C3LA 

ST4<2b 

2 

INSERT-LBDT 

INSREL 

0 

INSERT 




UDSET 

UPDSET 




I0BLE1 

JOBLE 




ZAES1 

Z AES 




ZER1 

ZER 

3 

SENDC-LDBT 

SENDC1 

□ 

SENDC 




LOGUT 

LUCHK 

4 

SAC-LBDT 

SACREL 

□ 

SAC 




SACF1 

SACF 
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17DQ 

Group 

SUBR. m.s. 

RELOC. 

SUBROUTINE 

SUBROUTINE 

No. 

ADDRESS 

FACTOR 

INCREMENT 

NAME 

5 

SEARCH-LBDT 

SERCH 

□ 

SEARCH 




FELD1 

FELD 

fcj 

INPUT-LBDT 

INPREL 

□ 

INPUT 

7 

MASSUP-LBDT 

MASUP 

□ 

MASSUP 




SETC 

SE TCI 

a 

EES-LBDT 

EESREL 

0 

EES 

i 

MFREAD-LBDT 

HFRREL 

□ 

MFREAD 

A 



MFWRT 

MFURITE 

R 



0PNEU1 

OPNEIi) 

E 



RSAT1 

RSAT 

A 



WSAT1 

WSAT 

M 



SUR1 

SUR 




ONSE 

OINSE 

2 

PPRK-LBDT 

PPKREL 

0 

PPRK 




ZOUT 

ZRflOUT 

3 

READIN-LBDT 

RINREL 

0 

READIN 

4 

KldRITE-LBDT 

KURIT 

□ 

KURITE 
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35. b. 3 ACCEPTABLE LIBEDT CONTROL STATEMENTS 


CONTROL 

INTERPRETATION 

ENTRY POINT 

STATEMENT 

CODE 

NAME 


"DL 

□ 

LISTPD 

"DM 

1 

LISTSD 

"V 

3 

SYSINP 

"U 

3 

CONCTL 

"Z 

4 

LIBXIT 

"K 

5 

CHANGE 

HP 

b 

PGHABS 

"M 

7 

SLINSN 

"L 

a 

PLINSN 

"N 


FILE 

"S 

ID 

RPUPDT 

"T 

11 

COPY 

"R 

13 

PLINSN 


35. b. 4 LIBEDT ERROR MESSAGES 


L01 More than six characters in a parameter name 
presented to the library editing program. 

L03 More than b digits in a number presented to the 
library editing program. 

L03 Improper system directory ordinal presented to 
the library editing program. 

L04 Invalid control statement presented to the 
library editing program. 

L05 Illegal field delimiter in a control statement 
presented to the library editing program. 

LOb Illegal field in control statement presented to 
the library editing program. 
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1700 


L07 Errors in loading as a result of a library 
editing program control statement. 

LOfl A program to be added to the program library has an 

entry point duplicating one already in the directory. 

LD1 Standard input failed on first input record 
following an *N request. 

L10 The operator is deleting a program which is not 
in the library. 

LH No header record on file input from mass storage. 

L12 On an "Li entry statement! either there was an 
input error or the first record was not a NAM 
block • 

L13 Common declared by the program being loaded ex- 
ceeds available common. 

L1M Program being loaded is longer than the size of 
unprotected core to the top of core. 

LIS Illegal input block encountered! last program 
stored in library is not complete. 

Lib I/O input error occurred last program stored is 
not complete. 

L17 "L program being installed exceeds the capacity 
of LIBEDT to input from mass storage. 

Lift Attempt to load a zero length program during a 
"M function. 


35. b. 5 INTER MODULE COMMUNICATION STORAGE IN THE EXECUTIVE 

MODULE 


35. b. 5.1 DEFINITION OF STORAGE 
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PRODUCT MODEL NO. EllOJaillill MACHINE SERIES 1200 


35 • b • 5 • 1 • 1 STORAGE ADDRESSABLE THROUGH X REGISTER 

XXK LIBEDT statement deparameterizing buffer - 

7 words in length 

(2S Uord count indicator for system directory listing 

processing 

TS Uord count indicator for program directory listing 

EnrK Indicates if output is blocked or unblocked. 

ERCA Absolute address of LIBEDT I/O tables -CIOTAB> 

UDCNT Uord length indicator for punching absolutized 
programs 

NOULB Uord length indicator for system update program - 
SLINSN 

SECAD M.S. sector address for file inputs - NSBTalso 
temporary storage 

SECAD+E 

M.S. sector address for file inputs - LSB 

SIC Address of current program block being input -USB 

SIC+E Address of current program block being input -LSB 

US Uord length for mass storage FREAD and FURITE requests 

US+1 Pointer for storage of entry name words in pro- 
gram directory 

IOUC Not used 

NOULR Not used 

ORCA Not used 

ORCA+1 

Not used 
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B1BABS 
NSI X 
SSIX 
PIBUFF 

TERMSId 

RETAD 

RA 

INTMP 

INTMP+1 

ZS 

ZS + 1 

ZS+B 

ZSEC 

ZSEC + 1 

TTEdP 

TTEMP+1 

HR 


Temporary address of BUFF1B 

Constant to set bQ word read or write length 

Constant to set Tb word read or write length 

LIBEDT statement input buffer - lb words in 
length 

Terminating buffer indicator for reading input 
statement 

Return address in job processor for release of 
LIBEDT 

Bit counter for sector availability table usage 

Sector address compare for sector availability 
table usage - flSB 

Sector address compare for sector availability 
table usage - LSB 

Absolute LIBEDT address of ZSEC 

Absolute address of BUFF1C I/O buffer for 
program library input 

Sector update counter 

Beginning sector number of program library 
directory - MSB 

Beginning sector number of program library 
directory - LSB 

Word counter for statement deparameterizing 
and Sys. Directory output 

Uord counter for picking entry-points out of 
the input buffer 

Address pointer for directory listing in 
BUFF1A I/O buffer 
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ORD 


Index to entry being updated in 
SLINSN 


system directory 


USK Not used 

USK+1 Not used 

LNOR First available location in last program 

directory block allocated 

LASTAD Absolute address of BUFF1C I/O buffer 

L SEC AD Absolute LIBEDT address of last 

SYSTEM Sector on which system resides 

ADDCT1 Parameter pickup counter for input statement 
deparameterizing 

ERRNNM Storage for error code to be output by main 
control module 

ENTSEC Address of first program block input - MSB 

ENTSEC+1 Address of first program block input - LSB 

ENTSEC+5 Beginning sector address of file being removed 
for possible $C1 update 

SECS Beginning sector address of S.A.T. - MSB 

SECS+1 Beginning sector address of S.A.T. - LSB 

SECX Sector address of currently used sector of 

S.A.T. - MSB 

SECX+1 Sector address of currently used sector of S.A.T. 
LSB 

IOSEC Not used 


if 

yy 
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IOSEC+1 Sector number of current program or file 
block being removed 

BUF1S Absolute address of S.A.T. core buffer 

BUF1S+1 Not used 

SATMP Contents of SATMP+1 

SATMP+1 S.A.T. input buffer word address containing 
empty sectors 

BUFF1A Absolute address of BUFF1A I/O buffer 

BUFF1B Absolute address of BUFF1B I/O buffer 

BUFF1C Absolute address of BUFF1C I/O buffer 

BUFF1D Absolute address of BUFF1D I/O buffer 

SICID Absolute LIBEDT address of SIC 

IOSAD Absolute address of BUFF1D I/O buffer 

NENT Not used 

NORD Mass storage sector address for reading routine 

MSB 

NSEC End of program input indicator for PLINSN 

PDSN Mass storage sector address for RtADIN routine 

LSB 

REMOV Signals removal operation to PLINSN 

REMFIL Signals file removal to PLINSN 

UPDATE Set if program replacement active 

POINT Pointer to program library entry for this 
replacement 

SAT Sector address for S.A.T. operations 

DUP Duplicate entry point flag 
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INPPAR 
IOSEAD 
WORD 
SEC XID 
CSSAVE 

EXTLKA 

W1 

W2 

RDREfl 

nSINP 

UPDL 

UPDL1 

UPDSAT 

TRISEC 

TRISEC+1 

NUSECT 

CSCNT 

FILIN 


Holds a D or 1 for S.A.T. update operations 

Absolute LIBEDT address of IOSEC 

Current word in S.A.T. sector being examined 

Absdlute LIBEDT address of SECX 

II. S. sector no. of previous program directory 
sector. 

Indicator for library load to clean up un- 
patched externals. 

First word for file update 

Last word for file update 

Storage for file input mode indicator 

Mass storage input indicator 

Number of sector to be released or reserved 
in S.A.T. 

Compare counter for sector release or reservat- 
ion S.A.T. 

Beginning sector no. for release or reservation 
in S.A.T. 

Number of update sectors input for file update 
operation 

Not used 

Program directory entry for new program indicator 
Sector counter for multiple input of update sectors 
Indicator for file module operation 
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LAST Eventual M.S. address of last program directory 

sector - MSB 

LAST+1 Eventual H.S. address of last program directory 

sector - LSB 

ASAVA3 Temporary storage of A register for AREA3 overlays 

(3SAVA3 Temporary storage of <2 register for AREA3 overlays 

ASAVAM Temporary storage of A register for AREA 1 * overlays 

CSAVAM Temporary storage of <3 register for AREAM overlays 
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35. b. 5. 1.2 ADDRESSABLE BY PROCESSOR OR SUBROUTINE RELOCATION FACTOR 
35. b. 5. 1.2.1 LIBEDT INPUT/OUT BUFFER ADDRESSES AND SYSTEM ADDRESSES 


INBFAD 

— 

Temporary storage for BUFF1A 

Address 


BUF1A 

- 

Temporary storage fc 

ir BUFF1A 

Address 


BFA56 

- 

Absol ute 
Buffer 

address 

of 

word 

51 

in 

BUFF1A 

I/O 

BFA51 

- 

Absolute 

Buffer 

address 

of 

wo rd 

bO 

in 

BUFF1A 

I/O 

BFC13 

- 

Absolute 

Buffer 

address 

of 

word 

14 

in 

BUFF1C 

I/O 

BFC14 

- 

Absolute 

Buffer 

address 

of 

word 

IS 

in 

BUFF1C 

I/O 

BFC15 

- 

Absolute 

Buffer 

address 

of 

word 

1b 

in 

BUFF1C 

I/O 

BFCIb 

- 

Absolute 

Buffer 

address 

of 

word 

1b + l 

in BUFFlC I/O 

BFB13 

- 

Absolute 

Buffer 

address 

of 

word 

14 

in 

BUFF1B 

I/O 

BFB15 

- 

Absolute 

Buffer 

address 

of 

word 

‘lb 

in 

BUFF1B 

I/O 

BFA13 

- 

Absolute 

Buffer 

address 

of 

word 

14 

in 

BUFF1A 

I/O 

BFA14 

- 

Absolute 

Buffer 

address 

of 

word 

15 

in 

BUFF1A 

I/O 

BFA15 

- 

Absolute 

Buffer 

address 

of 

word 

1b 

in 

BUFF1A 

I/O 

BFC4 

- 

Absolute 

Buffer 

address 

of 

word 

5 in 

BUFFlC 

I/O 
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BFC15 - Absolute address of word It in BUFF1C I/O 
Buffer 


BF1BA 

TTTEMP 


Entry location indicator in program 
directory of duplicate entry point 

Absolute LIBEDT address of TTEHP 


35.b.5.1.E.B LIBEDT INPUT/OUTPUT LOGICAL UNITS TABLE 


IOTAB 

I0TAB+1 

IOTAB+2 

IOTAB+3 

IOTAB+4 

IOTAB+5 

IOTAB+t 


System scratch logical unit 

System library logical unit 

Standard input logical unit 

Standard binary output logical unit 

Standard print logical unit 

Standard output comment device 

Standard input logical unit and mode from 
job processor 


35. b. 5. 1.2. 3 JOB-KILL ROUTINE ADDRESSES 

JKILLA - Storage for return address when JOBKILL not 
active 

JKILAD - Storage for return address when JOBKILL 
active 


35. b. 5. 1.2. 4 OVERLAY 
CTEflP 
PR0G2 
PR0G3 


PROCESSORS CONTROL LOCATIONS 


- Storage for AREA3 Overlay Subroutine Increment 

- Subroutine group in AREA3 indicator 

- Subroutine group in A REA 4 indicator 
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6ITEMP1 - Storage for AREA4 Overlay Subroutine Increment 

PR0G1 - Processor in AREAS Indicator 

<3TEMP3 - Entry indicator for main LIBEDT control 
module 
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x y 
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XXK 

as 

TS 

EMTK 

ERCA 

UDCNT 

NOULB 

SECAD 

SECAD + 1 

SIC 

SIC+1 

US 

US+l 
10 UC 
NOULR 
ORCA 
ORCA + 1 
B1BABS 
lilSIX 
SSIX 
PIBUFF 
TERHSU 
nRETAD 
RA 

INTMP 
INTtlP + 1 
ZS 

ZS + 1 

zs+s 

ZSEC 

ZSEC+1 

TTENP 

TTEHP+1 

HR 

ORD 

bJSK 

LNOR 

LASTAD 

ill 

"H 70 
M "D 

r- c 
m tj 

|“3 

SENDC 

INSERT — - 
HASLOC — 
COPY 

SEARCH- 

SAC 

mass up— 

INPUT 

m 3 
m nri 
C/3 70 

m 

j> 

** 

T) 70 7S 
T3HE 
70 > 70 
7S ^ M 
H 

_J1 
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BS.b.5.2 CROSS-REFERENCE OF STORAGE USAGE {Continued} 


LSECAD 

SYSTEM 

ADDCT1 

ERRNUN 

ENTSEC 

ENTSEC+1 

ENTSEC+2 

SECS 

SECS + 1 

SEC X 

SECX+1 

IOSEC 

IOSEC + 1 

BUF1S 

BUFlS^l 

SATMP 

SATMP+1 

BUFFI A 

BUFF1B 

BUFF1C 

BUFF1D 

SICID 

IOSAD 

NEWT 

NORD 

NSEC 

PDSN 

REMOV 

REMFIL 

UPDATE 

POINT 

SAT 

DUP 

INPPAR 

IOSEAD 

WORD 

S EC XI j) 

CSSAVE 

EXTLKA 
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CROSS-REFERENCE OF STORAGE USAGE {Continued} 


Lll 

UE 

RDRE<3 

MSINP 

UPDL 

UPDL1 

UPD SAT 

TRISEC 

1TIS EC + 1 

NUSECT 

CSCNT 

FILIN 

LAST 

LAST+1 

ASAVA3 

(3SAVA3 

ASAVA4 

<3SA VA4 

INBFAD 

BUF1A 

BFASfi 

BFAST 

BFCH3 

BFC'JM 

BFCTS 

BFC'lb 

BFBTB 

BFBTS 

BFAT3 

BFATM 

BFATS 

BFC 4 

BFC15 

BF1BA 

TTTEMP 

IOTAB 

IOTAB+1 

IOTAB+S 

IOTAB+3 

IOTAB+4 
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mNOTEs Any entries not crossed referenced complete all their 

operations within the executive module. These may however 
contain valuable debugging information. 
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vm 


35.51 


35.7 GENERAL DESIGN PECULIARITIES 

LIBEDT in an effort to maximize its utilization of pro- 
tected core uses a series of overlays to cause only the 
called for statement processor and a limited number of its 
subroutines to be core resident at any one time during 
execution. LIBEDT is assembled as one program and loaded 
on the library by the initial izer. To insure installation 
of LIBEDT in IbK of core! it should be loaded immediately 
after all essential core resident modules. Once loaded on 
the library LIBEDT length in the system directory is 
changed to an actual operating length each time the system 
is autoloaded through the space module. 

The LIBEDT program consists of a resident executive module! 
a main LIBEDT processing module! statement processors! and 
subroutines. The executive routines and tables are 
resident as long as LIBEDT is operational. The main pro- 
cessing module is overlaid into core after LIBEDT has been 
started up to determine the type of operation to be per- 
formed! and to set up the I/O table properly before executing 
a statement processor. This module is also brought in to 
process any errors and to pick up the next statement to be 
analyzed. This module runs in both AREAS and AREA3. The 
statement processors are read into AREAS by the main 
control module as each is called for and remains there until 
the main control module is brought back in. All subroutines 
used by the statement processors run either in AREA3 or 
AREAM as they are called for. In most cases! a subroutine 
group consists of several subroutines that are executed 
together or frequently by a particular processor. Refer to 
Figure 1 for LIBEDT mass memory layout and Figure S and 3 
for its allocatable core structures. 


35.7.1 EXECUTIVE MODULE INTERFACE 

The executive module which remains in AREA1 until all 
LIBEDT functions are completed serves as the communications 
vehicle between the active statement processor and 
subroutine groups. Since the relative execution locations 
are not the same in core as they are on mass storage for the 
main control module! the statement processors! and subroutines 
the executive module is addressable in only two ways. 
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The first method is through the *I V register which serves 
as a pointer to a series of buffers! tables! counters and 
mass storage and core address. When referencing any 
information in this area the reference can be made 
absolutely through 

For communications with any location other than those 
controlled by the I register it is necessary to use a 
relative corrective increment which is added to the desired 
address in the control module. This relative increment 
must appear at the beginning of the area that is to be 
overlaid! and serves to make operations in overlays relative 
to the area in LIBEDT where it is to be executed. 

A second feature of the executive module communication 
necessitating observance is the method of overlaying and 
passing information to subroutines from main processors or 
from subroutine to subroutine. In the executive module 
there are two tables {section 35.b.E> which contain the 
relative address of each subroutine group to run in AREA3 
and AREA4. To bring the proper subroutine into execution 
in either AREA3 or AREA4 the following procedure must be 
performed. 

First any information to be passed to the subroutine can be 
saved in LIBEDT^s executive table locations labeled 
(2SAVA3 and ASAVA3 for AREA3 and C2SAVA4 and ASAVA4 for AREA4 • 
The A and <3 registers will be loaded with these values after 
the subroutine has been overlaided. Once this operation 
is completed the A register is loaded with the number of 
the subroutine group desired in the particular area and d 
is loaded with the increment to the entry point of the 
subroutine requested within this subroutine group. The 
first subroutine in each groupisince it is at the beginning 
of the area does not necessitate an increment and therefore 
the d register should be entered with zero {□}. 

After these parameters are set entry can be made to the 
overlay processor for the desired area through a return 
jump. The return address will be set in the first word of 
the selected subroutine for exit back at P+1 of the location 
from which the subroutine overlay call was made. 
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35.7.5 PRECAUTION TO OBSERVE DURING MODIFICATION TO LIBEDT 

LIBEDT with its present structure is designed to utilize 
a minimum amount of allocatable core without serious 
degradation in performance. Since this is the case! 
strict observance should be given to certain key parameters 
whenever system modification or program corrections are 
implemented. 

Besides proper addressing to the executive module t the 
primary factor to observe is that the size limits for the 
various areas are set correctly. The limits for MSOS 3.0 
release version of LIBEDT are 1> 30Q for AREA2* where the 
statement processor runs! 5} EDO tor AREA3 subroutines! 
and 3} EDO for AREAM subroutine. The lengths of these 
areas are set by E<2U°s in the beginning of the program 
and can be changed if necessary. It should be noted 
however! that whenever these EGJU^s are expanded or when the 
size of the executive module is expanded the total length 
of LIBEDT will be increased and may require changing the 
operating length of the program put in the system directory 
at autoload time through the space module. Expansion if in 
excess of the present size of the Job Processor’s require- 
ments {approximately 1L50 words} may require increase the 
size of allocatable core where LIBEDT runs. The release 
version of LIBEDT uses ICHO exclusive of JOBENT. 

/ 

The main LIBEDT control module can be the size of AREAE and 
AREA3 in LIBEDT which at present is 500 words. This length 
is not controlled by on ECU although one exists for con- 
venience in identifying it. It may! however! be modified 
by changing the length inserted in the Overlay request at 
entry point TRANF in the executive module. 

The total core length of LIBEDT is calculated by a E(3U 
at the end of the startup routine* as well as the starting 
address for each area. These EflU^s can be checked for 
convenience in determining correct core allocation^ 


35.7.3 ADDITION OF NEW STATEMENT PROCESSOR AND/OR SUBROUTINES 

The capability of adding new processing operations to 
LIBEDT can be accomplished with relative ease by observing 
the following procedures: 
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1> Set up the mass storage address of the new statement 
processor at the end of the ADCT address table in 
the main control module. This address is of the 
following form: 

e.g. ADC Process-LBDT 14 


S> Supply an interpretation code at the end of the 

interpretation code table. This table in the control 
module has entries Ml-illE •••••H13. Two instructions 
must be placed in the table. A jump to the routine 
responsible for overlaying the statement processors and 
an instruction for setting the interpretation code. 

e.g. M14 ENfl 13 
JPIP* MGO 

NOTE: These two instructions will be placed after 

the m3 entry. 


3} Insert a one character control statement name into the 
table FUNTAB in the control module. If the control 
statement name is two characters it must be placed in 
FEND. In either case a jump to the interpretation code 
routine must also be supplied. 


e.g. 


e.g. 


ALF 

llMllI 

JMP" 

M14 


ALF 

1 1 *G0 

NUU 

tt 47FF 

jup* 

ms 


To add new subroutines for a new processor or for existing 
processors the rules to observe are: 


For subroutines in AREA3 set the mass memory address of the 
subroutine in the table of AREA3 subroutines in the 
executive module. 


e.g. ADC L0 ADUP-LBD T 5 
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The position in the table will determine the value entered 
in the A register -Cthis example S> to call the subroutine 
group. The rules for AREA4 subroutines are the same ex- 
cept the mass storage address is placed in the table of 
£REA4 subroutines in the executive module. 


35. fl PROGRAM LOGIC 

35.6.1 EXECUTIVE MODULE 

After being scheduled by the JOB PROCESSOR the executive 
module of LIBEDT is entered to initialize all tables! 
buffer areas! and address to be used in inter-module and 
system communications. 

Upon entrance the starting core address of LIBEDT is 
saved in FILES in TRVEC to be used by the JOB PROCESSOR 
for the release of LIBEDT. The return address in the 
JOB processor where the release is performed is passed 
in the (3 register and saved. The I register is next 
setup to serve as an index to a series of buffers, tables 1 
and address storage locations used between processors 
and subroutines. {section 35.b.5>. Exit is next made to 
a one time startup routine which sets essential infor- 
mation to commence processing. This includes LIBEDT^s 
I/O logical unit table 1 the input/output buffers in 
unprotected core and necessary addresses within these 
buffers! temporary unprotected core limits! and initializat- 
ion of the Sector Availability Table parameters. LIBEDT 
next sets the correct job mode indicator in the I/O 
table and prints the message LIB on the standard comment 
device. Before continuing to overlay the main control 
module the startup routine completes it*s final task 
which is to calculate the sector on the disk where the 
system resides and save this address. 

35. 6. 5 MAIN LIBEDT CONTROL MODULE 

This module which resides in both AREAS and AREA3 is 
responsible for processing communications between the 
operator and LIBEDT. This includes notifying the 
operator that the program is ready to initiate a new 
process by output the IN message! notification of any error 
conditions! interrogation of comment device and processing 
of all input statements! and execution of "Ki^V and "U 
statements which alter standard logical units. 
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CONTROL 

Arden 


Once in core this module can be entered at three different 
locations. The actual entry point is determined by the 
value entered in the <2 register when exiting to perform 
the overlay to bring in this module. A zero -C0> in Q 
signals that processing is proceeding as specified and 
entry should be at RPSA. A one -C1J in <3 notifies the 
operator that the job kill switch was set during 
processing and entry should be made at RPSX to exit 
directly to the Job Processor. A three 13} in (3 means 
an error condition occurred and entry is to be made at NEXT1 
to process the error before returning with the IN message. 

On initial entry to the main control module the IN 
message is output to the comment device when LIBEDT is 
ready to read a control statement from the comment or 
input device. If reading the device causes an error 
returni the comment device will automatically be re-read 
for a correct or new control statement. 

The acceptable control statements to LIBEDT along with 
their entry points and operation interpretation codes 
supplied by LIBEDT are given in section 35. b. 3. The 
interpretation code is stored in a executive module cell 
called PROGli which can be checked to determine which 
processor is in during debugging. This cell is also used 
when a statement processor is overlaid. 

All control statement names are stored in the table FUNTAB 
along with a jump to a routine for setting the 
interpretation code. The interpretation code is also 
responsible for determining the overlay of the proper 
processor. A list of statement processor entry-point 
addresses is supplied in the table ADCT . Using the inter- 
pretation code as an index! one of these entries is 

selected and used to calculate the beginning mass storage 
address. The length for the read is set as 300 words and 
a jump is made to entry point BRIPR1 to perform the 
overlay of the correct statement processors. It the size 
of AREAS is ever changed this 300 word read length must 
also be changed. 
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3S.A.3 LIBEDT STATEMENT PROCESSORS 

35. A. 3.1 LIST PROGRAM DIRECTORY - LISTPD 

The routine responsible for listing the program directory 
is LISTPD. Each entry point and file in the program 
directory is listed in the following format: 

ENTRY SECT. LSB 

FILE SECT. LSB FILE 

The name of the entry point or file appears first followed 
by the word V SECT. V To the right of ^SECT.* 7 appears 
the least significant bits of the first mass storage 
sector onto which the information was stored. A file is 
distinguished by the word FILE appearing to the right of 
the least significant bits. 

Prior to reading a program directory sectori a test is 
made to determine if the last program directory sector 
has been processed. If the last sector has been processed! 
the message FINI is output on the comment me l dium and control 
returns to the main control module. LIBEDT in turn types 
IN and anticipates a new control statement. If the last 
sector has not been processed! each entry will be 
interrogated to determine if it is an entry point! file 
or null. Entry points and files will be output in the 
format described previously and null entries will be 
ignored. A null entry is one in which all words of the 
entry are zero. 

35. B. 3.2 LIST SYSTEM DIRECTORY - LISTSD 

LISTSD is the routine responsible for listing the system 
directory. The system directory is listed on the standard 
output LIST device. The format of the output depends on 
the contents of the directory. If core resident -C4 word} 
entries exist! they will be listed prior to mass storage 
resident -C7 word} entries. Only those parts of the 
directory which actually exist will be listed. The main 
control locations for this routine are: 

1. $EB - Core location of the system directory 

2. $E7 - Index to first mass storage entry 

3. $Eb - Length of the system directory 
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The number of core resident entries is obtained by 
dividing the contents of $E7 by four. The number of 
mass storage resident entries is obtained by computing 
the difference -C$Eb> - {$E7> and dividing by seven. If 
either are zeroi they will not be listed. 

35.6.3.3 PUNCH ABSOLUTE RECORDS - PGHABS 

PGHABS is responsible for reading ini absolutizing and 
punching out programs in a single record of program length 
or in multiple records of length lb words. Upon entering 
PGHABS t the next field is scanned for an F. If an F is 
found! multiple records of length Tb words will be punched. 
Relocatable binary programs are loaded by the relocating 
loader which has the capability of loading onto mass 
storage. Programs on the input device are first loaded 
via a relocatable binary load as a result of a request to 
the loader. A subroutine load is then performed in an 
attempt to patch all unpatched externals. Any unpatched 
externals at the conclusion of subroutine load are then 
listed by the loader. At this point the operation may 
be continued by typing in an ** cr or may be deleted by 
typing in an *T cr. 

After loading has occurred! control returns to PGHABS which 
must punch the information. PGHABS first determines whether 
the loader placed the program-Csl on mass storage. If the 
program-Cs} resideCs} on mass storage it will be moved from 
there to unprotected core. If the program -Csl was not 
placed on mass storage! it already appears in unprotected 
core. In either case a test is next made to determine 
if one record or multiple records are to be punched. If one 
record is to be punchedi the starting address of the output 
buffer is set to the lowest unprotected location -C$F7>+1 
and the length of the record is set to the length of the 
load -C$ED> - -C$F7>. A test is then made to determine if 
the job has been killed by the job processor. If the job 
has been killed punching will not occur. If the job has 
not been killed PGHABS determines if the absolutized file 
is to be output on mass storage. If this is the case! 

PGHABS outputs a three word header record containing the 
word count followed by a two word identification field 
containing ^LIBE*. The header record is used by the FILE 
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module in determining the number of sectors to read from 
mass storage. The punch driver is then entered and the 
program reads output. 

If It word records are desiredi the length of load is 
divided by lb yielding v n* lb word blocks and one block 
R where OCROb. The same procedure described for a single 
block is applied when punching multiple lb word blocksn 
except that prior to punching a new blockn the output 
buffer pointer is advanced by lb words. After all 
punching has occuredi control returns to the main control 
module. This is signalled by IN appearing on the comment 
medium. 


35. fl. 3.4 SYSTEM LIBRARY UPDATE - SLINSN 

The SLINSN program is responsible for updating programs 
in the system directory. On entry to SLINSNn a control 
statement test is made to determine if a numeric ordinal 
to an entry in the system directory appears. If a non- 
numeric or no ordinal is fbundn Lb appears on the comment 
medium. It a numeric ordinal is foundn a control state- 
ment test is made for a numeric sector number. If a non- 
numeric sector number t Lb appears on the comment medium. 
If no sector number or a sector number is foundi it is 
saved and the next field interrogated. 

The next parameter checked for is the -Cd} data base. If 
no field is specified processing passes to an examination 
of the H parameter* When the {d> is present i howeveri 
the program first sets a flag to signal that the job 
kill switch should be unset upon return from the loader to 
allow processing of this parameter. The job kill flag is 
set since EM loader errors occur when setting the data 
base. These errors are noti howeveri critical to 
performing this function. The list output device should 
be checked to make sure no other fatal loader errorfs} 
occurred. The actual setting of the data is accomplished 
by making a loader call with a function seven {?> in the 
A register and the converted data base in the <2 register. 
The data base must be specified to LIBEDT in decimal due 
to conversion in the parameter unpacking routine PPRK. 
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If an M appears in the next control statement fie Id i the 
system directory ordinal is assumed to be in the mass 
storage part of the directory. If no N appears! a test 
is made to determine if a sector number appeared in the 
control statement. If one didi Lb appears on the comment 
medium. If no sector number was supplied! it is assumed 
that the system directory ordinal is in the core resident 
part of the directory and control is transferred to the 
routine CORRES. 


35.3.3.1.1 UPDATE OF CORE RESIDENT ENTRIES 

The CORRES routine converts the ordinal input on the 
control statement to an index to an entry in the system 
directory . 

This is done as follows: 

{ordinal number - 1>*4 ORD 

If this index exceeds the index to the first mass storage 
entry in $E?! the Lb appears on the comment medium. If the 
index is valid! a relocatable binary program load is 
started. Once all programs have been loaded from the in- 
put device! a subroutine load is performed to patch any 
unpatched externals. At the conclusion of subroutine load 
all unpatched externals will be printed. To terminate the 
operation at this point! type an *T cr . Otherwise! type 
an * cr. 

Once control has returned to SLINSN from the loader! a test 
is made to determine if loading took place onto mass 
storage. If it didi the program is brought into un- 
protected core and stored. If not the length of the 
program is checked to make sure a zero length program was 
not loaded in which cae an error IS is output. 

The program in unprotected core is next movedi with 
interrupts offi to some area of protected core. Exit is 
then made from SLINSN. 
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35.6.3.4.5 UPDATE OF MASS STORAGE RESIDENT ENTRIES 

Updating entries in the mass storage resident part of 
the directory is handled in a fashion similar to its 
core resident counter part. These exceptions are noted: 

1. An index to an entry in the mass storage resident 
part of the directory is computed. 

{ordinal number -II" 7 + {$E7> ORD 


5. Loading occurs as previously described except that 
upon completion of the load the N parameter of the 
LIBEDT call is checked to see if linking to the 
program library was requested. If requested! make a 
second loader call to complete this task. The load 
length is also checked as described for core resident 
entries. 

3. A test is made to determine if the program just loaded 
will fit on the mass storage sectors of the old 
program. If the program fits and it is currently in 
unprotected core-* it is moved from unprotected core 

to the specified sector. If the program was loaded 
onto mass storage! it must first be moved to un- 
protected core prior to outputting it onto mass 
storage on the specified sector . 

4. If the program just loaded will not fit onto the 
sectors of the old program! and loading took place 
on mass storage! then the scratch sector will be 
updated to point around the newly taken sectori 
and the Sector Availability Table {S.A.T.I will be 
updated to reserve these sectors from any other LIBEDT 
action. The sectors for the old program will be 
released from the S.A.T.! thus making them available 
for other LIBEDT action. If the program was loaded 
into unprotected core! it will be moved from 
unprotected core to the scratch area and the scratch 
sector will be updated. In both of the cases under 4.! 
the mass storage sector on which the program resides! 
as indicated by the system directory entry! must be 
updated. The mass storage resident $CD and $C1 are also 
updated. 
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5. Under 3. and 4. the word count in the system 
directory entry is modified to reflect the new 
program length. 


35.3.3.4.3 PROCEDURE WHEN SECTOR NUMBER IS SPECIFIED 

When a sector number appears in a control statement! 
it is converted from decimal to hexadecimal and stored 
in the system directory entry along with the program 
length. No tests are made to determine where the 
program is being stored and no attempt is made to modify 
CO and Cl. Loading and transferring then occurs as 
described in 35.3.3.4.3 


35.3.3.5 ADD-REMOVE-REPLACE PROGRAMS AND REMOVE FILES-PLINSN 

The PLINSN program is responsible for updating the 
program library. It provides for deletion! insertion 
and addition of programs to the library. It is also 
responsible for deleting permanent files from the 
library. This module is entered as a result of a Hl.! 
entry point name or a "Ri namei F submitted to LIBEDT* 

The first function performed by PLINSN is determining 
the type of control statement presented to it. If the 
control statement is a a remove flag is set. The 

next function is the scanning of the name field for an 
entry point name. If no entry point name is supplied! 

Lb appears on the comment medium. If the remove flag 
is on! PLINSN then scans the next field to see if the 
file parameter was input. If it is present! a flag is 
set indicating that a permanent file is to be removed. 
PLINSN then uses the entry point name as a search 
argument in the program directory! taking into account 
whether it is searching for a program name or permanent 
file name. If a match is foundi PLINSN enters either the 
REPL routine or the REPL3Q routine depending on whether 
a program or permanent file is to be operated on. If no 
match is found! PLINSN checks the remove flagi if it is 
on LID appears on the comment medium and PLINSN returns 
control to LIBEDT. If the remove flag is off PLINSN 
overlays the NBEK routine. 
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35- fl. 3. 5.1 ENTRY POINT FOUND IN PROGRAM DIRECTORY 

If an entry point name is found to be in the Program 
Directory! PLINSN enters the REPL routine. REPL first 
clears all entries in the program directory which 
reside on the same sector as the entry point found as 
a result of scanning the Program Directory. REPL then 
frees all sectors used by the program from the Sector 
Availability Table. If the remove flag is offi REPL 
then enters the NBEK routine {see Section 35.8.3. 5> to 
string the new program in the library. If the remove 
flag is on-i REPL enters the XXTA routine to write out 
the S.A.T. table and update $CD and $C1 on the mass 
storage resident system. 


35.6.3.5.2 REMOVING PERMANENT FILES FROM THE LIBRARY 

If a permanent file is to be removed from the library! 
PLINSN enters the REPL20 routine. REPL20 obtains the 
starting sector and file length from the program 
directory and computes the last sector of the file. 

REPL20 then deletes the file name from the Program 
directory and releases all sectors on which the file 
resides from the Sector Availability Table. REPL2D 
then enters the XYTA routine to write the S.A.T. table 
back on mass storage and to update $C0 and $C1 on the 
mass storage resident system. 

35.6.3.5.3 ENTRY POINT NOT IN PROGRAM DIRECTORY 

For new programs PLINSN enters the NBEK routine. NBEK 
searches the Sector Availability Table for empty sectors 
to string the program blocks through. Each block 
occupies one sector with words 51 and bO of the block 
set to the sector number containing the next block of the 
program. When the last block {XFR block! is readi words 
51 and bD are set to zero to denote the end of the 
program string. Each entry point name of the program 
is compared with all the program entry point names in 
the directory. If it is unique {no match} the entry 
point name is placed in the directory along with the 
sector onto which the first program block was stored. 

If a duplicate entry point is encountered during the 
directory scani NBEK sets an error flag indicating a 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 

Adrien M-iH s Development DIVISION MAR 5 1971 


DOCUMENT CLASS-UH PAGE NO 

PRODUCT mime 1700 OPERATING SYSTEM 

PRODUCT MODEL nn E0Qk"3.Q MACHINE SERIES HQfl 


duplicate entry point name has been encountered and 
continues inserting the program blocks into the library 
until an XFR block is found. If a new program 
directory sector is needed as a result of placing a 
new entry point name into the program directory! the 
Sector Availability Table is searched for an empty 
sector and the program directory is strung through this 
new sector. Before exiting! NBEK checks the error flag 
for duplicate entry point names. If the flag is offi 
NBEK enters the XYT routine. If the error flag is on! 

NBEK sets the remove flag on and enters the REPL routine 
to delete the new program from the Program LIBRARY. 

When adding new programs to the library it should be noted 
that the process for inserting new program blocks on the 
library is altered somewhat if the new program is being 
input from mass storage. To insure that program library 
directory blocks do not wipe out entry point blocks when 
processing these blocks from mass storage the following 
alternate procedure is used. 

1. All blocks prior to the first entry point block are 
output block by block as previously described. 

2. Once the first entry point block is encountered! all 
entry point blocks! external blocks and the XFER 
block are read into unprotected core. 

3. These blocks are now put back on the library one block 
at a time from unprotected core. A search for an 
available sector is done prior to output of each sector. 
The SEARCH routine also zeros the sector out in the 
Sector Availability Table IS.A.T.}. 

4 • If a new program library directory sector is now re- 
quired when processing the entry point blocks! this 
block can be obtained from mass storage without 
destroying any program blocks. 
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35.6.3.5.4 EXITING AFTER INSTALLING NEW PROGRAN 

To exit back to the main control module after installing 
a new program the XYT routine is entered. This routine 
first writes out the S.A.T. sector being used to mass 
storage. Next a check is made to see if the error flag 
for duplicate entry points is on. If this is the case an 
overlay is performed to bring the removed portion of this 
processor back into core to remove the program just 
installed. {see Section 35.8. 3. 5. 1>. After removal an 
LOfl error will appear on the comment medium and control 
returned to the main control module. 

If no duplicate error occurred XYT proceeds to update 
$C0 and $C1 on the mass storage resident system. Before 
exiting back to the main control module a check is 
made to determine if an input error or illegal black 
error occurred during the input of the program. If 
either error 15 or It occurred the error message will be 
output. Another attempt can be made to replace or remove 
this program since the next sector pointer in the last 
block output was set to zeros before exiting with the error. 


3S.B.3.L REPLACE-. ADDITION-. AND UPDATE OF PERMANENT FILES - FILE 

FILE module is responsible for inserting and updating 
files in the program library. This module is entered as a 
result of submitting an "N-. FILNAM-. U1-. U2, N statement to 
LIBEDT. 

35.8 .3. fcj.l CONTROL STATEMENT PROCESSING 

The first field processed by FILE is the file name field. 
This field must contain a non-numeric name of length t. 
characters or less. If this field is omitted or is all 
numeric-. LIBEDT responds with an Lt. error message. 
Otherwise-, control statement processing continues. 
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The next fields processed are the Ul and U2 fields. 

These fields contain the first and last words being 
updated in a file. These fields may be omitted. If 
non-numeric information is found in Ul and U2i the 
message Lb is written. If Ul and U2 are specified! 
they will determine the portion of the file being 
updated. Furthermore! if U2 appears-i a test is made to 
insure that U2 is greater than Ul. If this error is 
detected-i Lb appears on the comment medium. 

The final field processed is the input mode field. This 
field must contain either an A or B. If the input 
mode field is A-i records in ASCII format will be read 
from the standard input device. If the mode is Bi 
Binary records will be expected from that device. Any 
other symbol will cause Lb to appear. 


35. 6. 3. b. 2 BRANCHING TO FILE SUB-PROCESSOR 

Once all control statement fields have been processed! 
one of two routines is entered to update! or insert or 
replace a file. If no Ul field is specified this is 
a clue to the FILE module that a file is being inserted 
or replaced and that the routine INSREP is to be 
entered. If a Ul field is specified! the file must 
of necessity appear in the program library. In this 
case the UPDATE portion of this processor is overlaid 
into core. Also at this pointi if Ul is zero U2 is 
checked for zero. If U2 is not zero an Lb error is out- 
put since it would appear that an UPDATE was desired 
but the Ul field did not get specified. 


35. fl. 3. b. 3 THE FILE INSREP ROUTINE 

Upon entering INSREP all replacement blocks will be read 
from the input device and placed on mass storage scratch 
sectors.** A test is then made to determine if the file 
name from the control statement appears in the program 
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library directory. If the file name does not appear 
in the directory! the routine XXXXE is entered. At XXXXE 
the length of the new file is picked up and exit made 
to the SEARCH routine to find the first group of 
consecutive available mass storage sectors large enough 
to contain this file. Upon return to the processor! 
a check is made to see if the first sector of this group 
is the first scratch sector -C$C1>. If this is the case 
■C$C1> is updated by the length of the file and the new 
length^s complement and -C$C1> are inserted in the 
program directory! The Sector Availability Table is then 
updated by adding to {$C1> the length of this file to 
determine the number of sectors to set as occuppied. 

After setting the filers sectors as occuppied in the S.A.T. 
a check is made to see if a new file name is to be placed 
in the directory. If necessary the routine NEUFIL is 
entered by a return jump. The program directory is next 
written back to mass storage. The contents of $C0 and $C1 
on the mass storage resident system is also updated before 
exiting back to the main control module. 

When the group of consecutive available sectors found 
does not begin at -C$C1> then it is necessary to move 
the file to its new location. A check is first made to 
see if any portion of the file after being moved will 
exceed -C$C1>. If this is the case! this increment is 
saved and the processor proceeds to move the file to its 
new location. The new starting mass storage address and 
the complement of the filers length are put in the directory 
and the directory is output to mass storage. -C$C1> is then 
updated if necessary! and the new sectors occuppied are 
zeroed out in the S.A.T. $C0 and $C1 are also updated if 
required on the mass storage resident system. 

If the file name from this control statement appears in 
the program library directory! a test is made to determine 
if the replacement file will fit into the area provided 
by the file being replaced. If the replacement will not 
fiti all the sectors for the old program are released from 
the Sector Availability Table and the routine XXXXE is 
entered. Otherwise! the routine REPLAC is entered* 
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The REPLAC routine first checks the length of the new 
filei if it is zero LOT is output to the comment medium 
and control is given to the LIBEDT module. If the 
length is not zeroi the routine first updates the 
directory entry by specifying a new sector length for 
the file. The updated program directory sector is then 
output back on mass storage. The replacement file is 
next read into unprotected corei sector by sector! and 
transferred to the mass storage area occupied by the file 
being updated. If the new file is shorter than the 
old file-L the unused sectors of the old file are released 
from the Sector Availability Table. Control then returns 
to the main control module. 


3S.fl.3.b.M FILE INPUT FROM MASS STORAGE 

If the input device is mass storage! the routine INPUT 
checks to see if there is a header label with the 
identification W LIBE^ in the second and third word of 
the first sector in the scratch area. If the record 
does not contain the identification V LIBE* L10 appears 
on the comment medium and control is given back to 
LIBEDT. If the header record is identified the first word 
of the header is used for the word count of the filet 
and the contents of $C1 are then incremented by one to 
point to the first record of the file. Entry is then 
made at XXXX5 to see if the file is to remain in its 
present location or to be moved. If a move is not re- 
quired! the file will remain where it was input to 
mass storage and the process will continue as mentioned 
in the description of the XXXXS routine -Csee Section 
3S.fi.3.b.3>. 


3S.a.3.b.S THE FILE UPDATE ROUTINE 

Immediately after entering UPDATE! all update file blacks 
are read from the standard input device and placed on 
mass storage . * A test is then made to determine if the 
file name from the control statement appears in the 
program library directory. If the name does not appear 
in the directory! L? appears on the comment medium. If 
the name does appear in the directory! a li)3 field test is 
made. If U2 is not present! only one word in the file 
must be updated and the routine ONONLY is entered. 
Otherwise U2-U1 words of the binary file must be updated 
provided the update does not exceed the library filers 
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length. If US-Ul overflows the filei Lfl appears on 
the comment device. If overflow does not occur i the 
first U3-U1 words are removed from the mass storage 
resident update file and inserted into the library 
file starting at word kll. After inserting U3-U1 words 
into the library filen exit is made from FILE to the 
main control module. This is signalled by IN appearing 
on the comment device. 

When one file word is to be updated! the routine ONONLY 
is entered. This routine computes the word position in 
the file! of the word being updated t as follows: 

SS = Starting Sector for File 
<2 + R= -CUU 

UDS= Update Sector = {SSI + -C<2> 

UDbJ= Update word = {RJ-1 


ONONLY then reads the update word from the input device 
and places it in unprotected core. The update word is 
next inserted into word UDU on sector UDS. After 
update is complete! control returns to the main control 
module . 


3S.a.3.7 SET SYSTEM DIRECTORY REQUEST PRIORITIES - RPUPDT 

RPUPDT is the statement processor responsible for setting 
the request priorities of all entries in the system 
directory. The request priorities set by RPUPDT will 
determine the area of allocatable core where each of 
these programs may operate. 

The first operation performed by the processor is to 
fetch the ordinal number and request priority from the 
call. Checks are made to assure that these values are 
not non-numeric. If non-numeric an Lb error is output. 
Next a test is made to assert that the specified request 
priority is not greater than sixteen {lb}. The largest 
allowed. If greater a LI error is output. Two final 
tests are made before inserting the specified request. 

The first of these checks is to see if the entry to be 
updated is mass memory or core resident. The second 
check is to assure that no more parameters are present. 

If so -i an Lb error is output. 
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Once all parameters have been deciphered RPUPDT 
proceeds to insert the request priority in the directory 
based on whether it is for a mass storage or core 
resident program 5 , as previously determined from the callo 
In each case the specified ordinal is checked against 
those in the directory to determine if it is a legal 
ordinal. If not a L3 error is output. If correct the 
request priority is stored in the correct directory 
entry! the position of the entry in the system 
calculated! and the correct value inserted in the 
directory on the mass storage resident system. 


35.fl.3.fi COPY BINARY AND ASCII RECORDS - COPY 

The COPY statement processor is a utility program 
within LIBEDT which allows the transfer of information 
between any two peripheral units. This transfer may 
be in any combination of ASCII or Binary specified. 

The maximum number of records to be transfered may 
also be specified. 

The actual input and output of the information to be 
, transfered by this processor is done through an FREAD 
and F0RITE request in the processor. All processing 
prior to these two operations is concerned primarily 
with removing the information from the call and 
inserting this information in the correct locations in 
the input and output requests. The following sequence 
of events accomplish this task: 

1. Set the input logical unit in the FREAD request 

A. Check the following features if a unit is specified 

1. Issue an LI error if unit not numeric 

2. 'If the unit specified is not an input unit 
output an LL error from subroutine LOGUT. 

B. When no unit is specified insert the standard 
input logical unit in the request. 
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2. Pickup $CQ and $C1 and save for possible use 
if the mass storage devices are selected. 

3. Set starting address of READ Buffer to first 
unprotected +1 and the length of the READ to the 
size of unprotected core. 

4. Get the input mode 

A. If the value is not non-numeric output a LI 
error . 

B. Check if ASCII or Binary and save 


5. Set the output logical unit in the FlilRITE request. 

A. Check the following feature if a unit is 
specified. 

1. Issue an LI error if unit non-numeric 

2. If the unit specified is not an output unit 
issue an Lb error from subroutine LOGUT. 

B« When no unit is specified insert the standard 
output logical unit in the request. 

b. Check if the maximum record count is specified 

A. If the value obtained is not numeric output a 
LI error 

B« If value is numeric complement and save it. 

C* When no value is specified the value saved is 
zero . 


?• If the input or output is the library or scratch 

mass storage units their mass storage addresses are 
setup for the requests. 

A. Transfer all information as now specified. 
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1. Exit to the subroutine SENDC to output to the 

standard list device the number of records trans- 
ferred. 

10 o From SENDC exit back to the main control module. 


35.1 SUBROUTINE LOGIC 

35-1.1 EXECUTIVE MODULE SUBROUTINES 

35.1.1.1 LIBEDT PROTECT PROCESSOR - B 

This routine is used to monitor protect faults which 
occur during LIBEDT operations with the loader. If 
the fault is caused by a loader entry to the Job 
Processor or the monitor! processing continues as 
specified. All other entries will kill the job and 
release LIBEDT. 

35.1.1.5 EXIT LIBEDT - LIBXIT 

When it has been determined that the LIBEDT job should 
be terminated entry is made to LIBXIT where a direct 
jump is made to the Job Processor to release LIBEDT. 

The n Z statement and JKILL routine are the primary users 
of LIBXIT. m 


35.1.1.3 JOB KILL - JKILL 


In all instances when it is beneficial to check if the 
LIBEDT job has been killed before continuing! entry is 
made to this routine. JKILL will determine if exit 
back to the statement processor is necessary before 
returning to the Job Processor. The protected common 
flag used by the loader is also clear in case if it was 
being used by the *M processor. 
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35. T. 1.4 A REA 3 OVERLAY ROUTINE - READA3 

On entry to the overlay handler the subroutine group 
increment is saved and a check is made to determine 
if the correct subroutine group is already in. If in 
the increment is added to the start of AREA3 to get the 
entry location. The return address is then put in the 
first word of this subroutine. A-»(3i and I are setup 
and a jump is made to the subroutine. 

When the called for subroutine's group is not in AREA3 
it is first read into the area and the process then 
continues as specified above. If a read error occurs 
while reading the overlay ini the job is aborted and 
exit made back to the Job Processor. 


35. T. 1.5 AREA4 OVERLAY ROUTINE - READA4 

The logic flow of the overlay handler for AREA4 sub- 
routine groups is the same as that for AREA3 . See the 
description for the AREA3 Handler {35. 1.1. 4}. 


SS.I.l.b OVERLAY HANDLER FOR STATEMENT PROCESSORS AND MAIN 
CONTROL MODULE - TRANF 

When overlaying the main control module into AREA2 and 
AREA3 entry is made at TRANF. This subroutine first 
save an index which determines where entry is to occur 
in the control module and any error number being passed 
for processing. The length for the read in of the 
control module is put in the request as well as its 
calculated starting mass storage address. 

At BRIPRO and BRIPR1 the actual mass storage read operation 
to bring in the main control module or statement 
processors occur. If a statement processor is to be 
overlaidi its number is saved. This number has no 
significance other than aiding debugging. Once the 
overlay is completed a jump is made to the beginning of 
AREAB {PR0GIN1 to beginning processing. 
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35.1.1.7 MASS MEMORY ADDRESS CALCULATION - MMADDR 

This routine gets the mass storage address of LIBEDT 
from the system directory and converts this sector 
number to word address. The address of the sub- 
routine is then added to this address and supplied to 
the proper overlay routine. 


35.1.2 MAIN CONTROL MODULE SUBROUTINES 

35.1 • 2 . 1 KREAD ROUTINE 

This routine causes a control statement to be read from 
the comment or input device. Interrogation of the 
statement buffer will continue until a statement is 
input. 


35.1.5.2 ERROR PROCESSING - NEXT-. NEXT1 

Entry is made in the main control module at NEXT1 if 
an error message is to be output that occurred outside 
of this module. All error processing from which the 
module enters at NEXT. After output of the error message 
the input statement buffer is interrogated for another 
control statement. 


35.1.2.3 AND "U PROCESSORS - CONCTL - SYSINP* 

The control statement input device is determined by 
CONCTL and SYSINP. Uhen SYSINP is entered the input 
is selected {via $F1}. Control statements will be read 
from the specified standard input device until a *U 
occurs which sends control back to the standard comment 
device for output of the IN message. 

35.1.2. M *K PROCESSOR ROUTINE - CHANGE* 

This routine processes the *K statement. Standard inputi 
print or binary output logical units may be changed in 
the I/O table {I0TAB1-. thus allowing the operator the 
option of selecting devices for systems units other than 
those currently used. 
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"NOTE: Since the "Zi"Vi"Ut and "K are indirect LIBEDT 
functions that service the major processors^ 
separate AREAS processor programs do not exist 
to execute these functions. Their present 
locations reduce the need for continuous over- 
laying when setting up to execute a major 
statement function. 


35-1.3 AREA3 SUBROUTINES 

35.1.3=1 GROUP NO . 1 - MSLOC 

35.1.3.1.1 MASLOC 

This subroutine checks to see whether the loader when 
processing a "P or "N LIBEDT statement left the 
absolutized file out on mass storage or if it was left 
in core. If it is on mass storage it is brought into 
core. If it is in core it is left there. If the file 
is on mass storage and must be brought into core a 
check is made to insure that it will fit. If it is too 
large a error 14 is output. 


35.1.3.1.5 NOVIT 

The NOVIT routine is used by the "N processor to 
perform a core to core transfer of data from unprotected 
core to the specified starting address in the system 
directory of this core resident program. Interrupts are 
inhibited during the move operation. 


35.1.3.1.3 RDIN 

This is the calling subroutine for the "N processor 
to execute the NASLOC and NOVIT subroutines. 


35.1.3.1.4 SETCRR 

SETCRR is used to set temporary unprotected core limits 
for those processors that use the loader. 
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35.1.3.1.5 GETCOR 

After a load operation is completed GETCOR can be 
executed to obtain the length of the load in unprotected 
core . 


35.1.3.1.5 RBLOD 

This routine is used to execute a relocatable binary 
load from the loader. Once the actual load has 
occurred the routine makes a second call to the loader 
to attempt to clean up all unpatched externals before 
returning to the calling processor. 


35.1.3.1.b LOAD 

All calls to the loader from any other subroutine or f ^ 

processor is directed through LOAD. Upon entry the 
A register contains the loader operation code and the 
<2 register the core address of the first of three 
sequential locations containing an entry point name 
or an address for data base operations. Upon return 
if normal termination occurred the mass storage or 
core load indicator is saved before processing continues. 

If termination was via a contrdl statement! the 
statement is moved to the statement input buffer and 
the mass storage or core indicator examined. A check 
is finally made before exiting back to the processor 
to unset the job kill switch if a data base operation 
is in progress. 


35.1.3.1.7 MVCST 

If the loader operation performed by the LOAD subroutine 
terminated with a control statement this subroutine is 
entered to move the statement to the statement input 
buffer from where the next operation can be interpreted. 


o 
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35.1.3.1.6 ST4C3bA 

This routine is entered from the *f1 processor to 
insert the length and starting sector number of the 
core or mass storage resident program replaced in the 
system directory on the mass storage core image of the 
system . 


35.1.3.3 GROUP NO. E - INSREL 
35.1.3.2.1 INSERT 

Whenever programs or files are added! replaced! or 
removed from either the system or program directories 
it is essential that the sector availability table be 
updated to reflect current disk storage thus avoiding 
destruction of information. The INSERT routine is 
entered for this purpose. The sector number whose 
representati ve bit is to cleared or set is passed to 
the routine in the A register. Whether the sector 
bit is to be cleared or set is determined by the value 
passed in INPPAR. A zero passed signifies that the 
sectors bit is to be set as not available and a one 
causes the sector to become available for future use. 


35. 1.3. 2. B UPD SET 

This subroutine is used in conjunction with the INSERT 
subroutine when blocks of sectors are to be set or cleared 
in the Sector Availability Table. The routine is used 
by the «f1i kRt and "N processors . 


35.1.3.3.3 IOBLE 

When a program is to be replaced or removed from the 
program library! IOBLE is entered to read up the old 
program blocks to get the sector number of the next 
program block. This sector number is then used by the 
processor to clear the seotdr in the sector availability 
table. 
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35.T.3.S-4 ZAES 

This routine is used by the *L and *R processor to 
zero out all directory entries which have as a 
beginning sector number the same number as the 
starting address of the program being removed or 
replaced. 


SS.ToS.S.S ZER 

ZER is used by ZAES to perform the actual zeroing 
of the program library directory entry. 


3S.T.3.3 GROUP NO. 3 - SENDC1 
35. T. 3. 3.1 SENDC 

The *T processor upon completion of its read and write 
operation exits to this routine to convert the record 
count from hexidecimal to ASCII and to output a message 
to the standard print device specifying the number of 
records transferred. Only a four digit number can be 
output by the routine although there is no limit to the 
number transferable by the "T processor. 


35. T. 3. 3. 3 LUCHK 

When transfers are to be performed by the m T proc essor 
this routine checks the specified input and output 
device for their legality. Checks are made of the 
following features: 1> that the unit specified is not 

the core allocator -CL.U.*l>i 31 that the device is 
a legal read or write devicei and 3} that the logical 
unit number does not exceed the number of units in the 
system as specified by location NUMLU in SYSBUF. 


AA 3777 


PRINTED IN USA. 



CONTROL DATA CORPORATION 

A \rAp r-i H-jTI«s T>pup 1 npmpnt... DIVISION MAR 5 1971 


DOCUMENT CLASS __U1S PAGE NO 

PRODUCT MAMC l.?nn OPTRATTNC. SVtTrtl 

PRODUCT MODEL NO FDC1Lk3 .□ MACHINE SERIES 17DQ 


35.1.3.4 GROUP NO. 4 - SACREL 
35.1.3.4.1 SAC 

This routine searches the program directory for a match 
to an entry point. If a match is found the sector number 
of directory block containing the entry point will be 
saved. The (2 register is returned to the processor with 
the index to the first word of the match entry in this 
sector and the A register is set to zero. If no match 
is found the A register is returned with a non-zero 
value. Entry at SAC is made when a program entry point 
is being checked to determine if a replace operation 
is to be made or when the legality of a remove operation 
is required. 


35.1.3.4.2 SACF 

Entry is made to this routine to execute SAC for file 
operations. This includes determination of file replace- 
ment and validity of file removals. 


35.1.3.5 GROUP NO. 5 - SERCH 
35.1.3,5.1 SEARCH 

The insertion of new programsi program library! or file 
blocks on mass storage will cause SEARCH to be 
entered. Program and program library blocks are chained 
together on mass storage. Therefore! SEARCH will locate 
the next available sectori zero out its bit in the Sector 
Availability Table! and return to the calling routine 
with the sector number. 

Files unlike program or program library blocks must 
reside contiguously on mass storage. The Sector 
Availability Table is therefore! interrogated to find 
the first group of sectors available large enough to 
contain this file. When found return is made to the 
file processor with the beginning sector number for the 
file. These sectors will be set as occuppied by a call 
to the UPDSET {see section 35. 1.3. 2. 2> subroutine by the 
file processor. 
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35. 1.3. 5. S FELD 

The addition of program or file entry points to the 
program library may necessitate the acquisition of an 
addition program directory sector • Uhen this is the 
case FELD is entered to find the current last directory 
block such that the sector address of the new block 
obtained by executing SEARCH can be stored for chaining 
as the directory. If the new block obtained is in the 
scratch area of the disk the $C1 scratch pointer is 
updated. Before exiting the new block is also zeroed 
1 / out. 


35.1.3. U GROUP NO. b - INPREL 

35.1.3. b.l INPUT 

This routine reads from the input or comment device 
ASCII or Binary Format Records of lb words or less for 
input to the file processor. Reading is terminated by 
an error return from the input driver or by the next 
control statement. If termination is via the control 
statement the statement is moved to the LIBEDT state- 
ment input buffer to be processed upon completion of the 
current request. The blocks of information are input 
to unprotected core. If unprotected is not large 
enough to contain all the inputi unprotected is then 
moved to mass storage each time it is unable to hold 
more information. 

Upon completion of all input operations return to the 
file processor is made with the A register specifying 
the number of sectors of information read. If input 
was from mass storage the number of sectors of 
information in the file is obtained from the file 
header record thus negating the necessity of reading 
up all the information to obtain a sector count. 


35.1.3.7 GROUP NO. 7 - MASUP 
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35.1.3.7.1 I1ASSUP 

Upon completion of processor tasks that add or remove 
information from mass storage! or when a job kill occurs! 
it is essential that the beginning scratch sector get 
properly updated as not to cause destruction of 
information. I1ASSUP accomplished this by reading up 
the system sector containing the scratch address! 
changing its value if necessary and then writing the 
system sector back to mass storage. 


35.1.3.7.2 SETC1 

This routine is used to set the word lengthi input 
buffer address! and sector number location address 
for read of a system^s sector from mass storage. 


35.1.3.7 GROUP NO. fl - ESSREL 

35.1.3.7.1 ESS 

The insertion of new entry point names in the program 
library requires that a search of the directory be 
made to locate and utilize any empty entries in 
existing program library sectors. If an empty entry 
is found the Q register points to the first available 
word in the entry and the A register is set to zero. If 
no entries are found the A register is returned with 
a non-zero value. When no entries are found subroutine 
FELD {See Section 35. 1.3.5.21 must be executed to get a 
new library block before returning to EES. 


35.1.4 AREA4 SUBROUTINES 

35.1.4.1 GROUP NO. 1 - HFRREL 

35.1.4.1.1 HFREAD 

This routine reads one sector from a mass storage unit. 
The address of the sector number must be in the d 
register and the address of the input buffer in the A 
register. (315 = 1 signifies a separate scratch unit. 
(315 = 0 signifies that the library and scratch units 
are the same . 
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35.1.4.1.2 NFURITE 

HFWRITE writes N words on a mass storage device the 
address of the word containing the sector number must 
be in the Q register and the address of the output 
buffer in the A register. The number of words to 
write is passed from storage location US* 


35.*!. 4.1.2 OPNEW 

When outputting program blocks OPNElil sets up the 
parameters for the mass storage write. 


35.1.4.1.3 RSAT 

RSAT sets the input buffer and sector address location 
for reading a block of the sector availability table 
into core. 


35.1.4.1.4 WSAT 

WSAT sets the output buffer address and sector number 
location for writing a block of the sector availability 
table back to mass storage. 


35.1.4.1.5 SUR 

SUR sets the input/output and sector address locations 
for reading from and writing to the program library. 


35. 1.4.1. Li OINSE 

This routine inserts entry points in the program library 
directory one entry point at a time. This subroutine 
is used in conjunction with ESS {section 35. 1.3. 7. 1> 
which locates empty entries and FELD {section 35.1.3.5.2} 
which obtains additional program library blocks if 
necessary. If an additional directory block is required 
this routine will write the SA.T. out to mass storage 
before exiting. 
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35. 1. 4.3 


GROUP NO. 2 - PPKREL 


35.1.4.2.1 PPRK 


Each time a control statement field must be processed 
PPRK is entered. This routine will extract up to (□ 
characters and interpret them as follows: 

1> If all characters are numeric -CO 1>i they are 

assumed to be decimal and converted hexidecimal. 

On return from PPRK the following will be set: 

a> A = 1 

b> Q = number of digits 

c} XXK = converted number 

2> If any character is alphabetic! all characters are 
assumed to form a name. On return from PPRK the 
following will be set: 

a> A = 0 

b> (3 = number of characters 

c> XXK ! XXK+1 ! XXK+2 = packed characters 


35.1.4.2.2 ZRCJOUT 


This routine is used by PLINSN and FILE to move the 
entry point name input from the XXK buffer to the 
BUFF1A input buffer thereby allowing the de- 
parameterizing of the remaining portion of the control 
statement . 


35.1.4.3 


GROUP NO. 3 - RINREL 
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35.1.4.3 READIN 

READIN reads records from the input or comment device 
for the *L and *N processors. The input buffer address 
must be passed in the A register and the read length 
in US. If mass storage is being used the scratch 
sector address must also be passed in PDSN and NORD. 

The <2 register upon entry will pass a first time 
flag to avoid having to set up the I/O information on 
each entry when the subroutine is being used by 
the file processor the read mode is checked and stored 
in the request. 


35.1.4.4 GROUP NO. 4 - KURIT 
35. 1. 4. 4.1 KURITE 

This routine writes two words on the standard output 
comment medium. The two words to write immediate .f ^ 

follow the return jump used to exit to the subroutine. ( \_j) 

The primary calls to the routine are to output error 
messages and the IN messages. 


35.1.4. 4.5 OURITE 


OURITE function through KURITE and differs only in that 
the output device is set to the standard print device. 
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RECOVERY PROGRAM 
PROGRAM FUNCTION 

By using the recovery program, the programmer may determine the 
state of core and mass storage at the end of job execution. It is 
operated under the direction of the job processor. Whenever the 
job processor detects an *SR statement prior to job execution, it 
sets the recovery indicator switch. The recovery program is operated 
at job termination when the switch is set. 

RECOVR ROUTINE 

Internal Description 

Upon entering the recovery program, the comment ,f RE n is typed on 
the comment medium. The operator is then free to direct the opera- 
tion of the recovery program by entering control statements. 

All control statements must be entered from the comment medium. The 
output device may be selected. Control statements to the recovery 
program consist of statements in format records. The information is 
placed in a buffer internal to recovery program and is recorded in 
the internal code of the computer (ASCII). 

The first character of a control statement must be an (*), and the 
last character must be a carriage return. The intervening characters 
of the statement identify the type of statement and consequently, 
the prescribed action desired. 

Internal to the recovery program is a list of acceptable control 
statements. A control statement read by the recovery program must 
match some entry in this list. With each entry in this list there is 
associated an address to which the recovery program will transfer 
in order to carry out the operation directed by a control statement. 

The standard list of input statements for the recovery program consists 
of the following: 

INPUT STATEMENT TRANSFER ADDRESS TO BEGIN ACTION 

*Dhhhh, HHHH DMPCOR 

*MS1, W1,S2, U 2, N MASDMP 

*T TERM IN 

*Unit Number OUTSEL 

Unacceptable control statements are indicated by a printout (ERR) 
and the recovery program waits for another control statement. 

A function module is entered via a jump from the control module. 

Return to the control module is via a jump to M REC n in the function 
module. 
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The following subroutines are contained in the n REC0VR M module. 

1. WR WRITE Routine 

Upon entrance, Q contains number of words to write. The 
MARK contains location of buffer. Program returns to next 
location following buffer. 

2. SIFT This routine translates input messages into an array. 
Parameter checking is made on the following: 

a. No more than 4 characters between commas allowed 

b. No more than 5 words inputed. 

c. Only Hex characters read. 

3. BIASCI Binary to ASCII code conversion 

Upon entrance, A contains Binary number, exits with ASCII 
code in A and Q registers. 

4. SP Stores Spaces ($2020) in IBUF (Working output buffer) 

5. GET Gets one character from "IBUF" 

The I register contains character number, and upon return 
A and Q register contain character right adjusted. 

6. TERMIN Terminates control of the Recovery program. The 
location specified in $EE is scheduled at level zero. The 
recovery module is released and control is returned to the 
Dispatcher. 

Additional Statements 


In order to process control statements, in addition to those normally 
included in the list, the following must be done: 

1. Add the external name of user's program to process statement 
to "EXT" list. 

2. Add four words defined in coding (see coding of RECOVR) 


Entry Interfaces 


RECOVR 

REC 

ERR 

TERMIN 

GET 

SIFT 


Entry from "JOBENT” Module 

Entered from "RCOVER" Module s, Starts processing procedures 
for next input statement. 

Error statement entry. Type out error message "ERR”. 
Terminate Recovery routine. 

Gets character from "IBUF". 

Entry to routine that places input information into an 
array. 
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SP 

BIASCI 

- set spaces in IBUF 

- Binary to ASCII code conversion 

3 b .2.4 

External 

Symbols 


FILES 

SWITCH 

- Contains absolute location of v RC0VER* 
routine. 

- Set to +1 when *1 read by manual ; n.er- 
rupt routine. 

3b- 2. S 

Internal 

Symbols 


LUNO 

ABIBUF 

IBUF 

BUF 

- Logical Unit number of output device. 

- Absolute location of IBUF. 

- lb word input and output buffer. 

- 5 word hex array of input datai set by 
SIFT routine. 

3b. 3 

OUTSEL NODULE 

3b. 3 • 1 

Internal 

Description 


This module allows the operator the option of selecting 
any device to be used as output medium by the recovery 
program. The unit number must be legal and the device 
must be capable of output. If no unit numbers state 

ment is made-> the standard output unit for print i nf or- 
mation will be used. If an error is detectedn control 
is returned to ERR in the RECOVR modulei which prints 
out *ERR^ and asks for the next statement. 

3b. 3. 5 

Entry Interfaces 


OUTSEL 

- Entry to module 

3b. 3.3 

External 

Symbols 


L0G1A 

- Logical Unit Table 

3b. 4 

DUNP CORE ROUTINE 

3b. 4.1 

Internal 

Descri pti on 


The control statement "Dhhhhn HHHH instructs the recovery 
program to dump the contents of core beginning at hexa- 
decimal address hhhh and terminating at hexadecimal 
address HHHH. If the terminating address is less than 
the starting address 1 no data will be printed. If the 
stop address is not giveni only one word will be printed. 
Ten words will be printed on a line together with the 
starting address of the first word on the line. If the 
output device is magnetic tape or a printer! lb words 
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will be printed on a line. If the last word of a line 
is equal to each word of the next linen only an asterisk 
will be printed and no further data will be printed 
until a variation is detected. The printout uses 
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only hexadecimal digits. Upon completion of the dump, exit will be 
made to the control module. 

n DMPC0R M routine is so set up that the mass storage dump program will 
use the "DUMPC 11 portion of "DMPCOR" routine. The following core 
locations will be switches used by both routines: COREL, WLOC, STOP, 

COMPE, ASKWR, B. 

Entry Interfaces 

DMPCOR - Entry to module 

DUMPC - Dump core routine 

PRINT - Prints one line of information 


Internal Symbols 


START 

STOP 

WLOC 

COMPE 

ASKWR 

WORDC 

LWORD 

COREL 

B 


First location to dump. 

Last location to dump or last word. 

Current word location dumping or word number. 
Word compare check flag. 

Line compare check flag. 

Word count 
Last word 

Location of current word dumping 
Absolute location of IBUF 


MASS STORAGE DUMP 


Internal Description 

The Control Statement *M si, Wl, S2, W2, N instructs the recovery 
program to dump mass storage scratch area. Mass storage is dumped 
beginning with word Wl in sector SI and terminating with Word W2 in 
sector S2. The following rules apply for values assigned to SI, Wl, 
W2 and S2. 

1. If Wl is omitted, the first word to be dumped is the first 
word of the first sector to be dumped. 

2. If S2 is omitted, it is assumed that S2 has the same value 
as SI. 

3. If W2 is omitted, the last word to be dumped is the last 
word in sector S2. 

Therefore - 

1. A single sector will be dumped if only a value of SI is 
specified. 

2. No information will be dumped if SI is greater than S2. 


1 - ) 
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3. No information will be dumped if SI equals S2 and Wl is 
greater than W2. 

If N does not appear, the library unit is assumed. If N appears, 
it must be the logical unit number of some mass storage device. 

The starting scratch sector specified will be read into core. The 
communication flags will be set and the buffer dumped by DUMPC in 
"DMPCOR" routine. 

The first line printed will defined sector number followed by dump 
of sector in hex. If the contents of the last word of a line equals 
the contents of each word in the following line, only an asterisk will 
be printed. No further printout, except for sector number will be 
printed until a variation is detected. Upon completion of the print- 
out, exit will be made to the control module. 

3 k4. 2 Entry Interfaces 

MASDMP- Entry to module 

SECNO - Sequence number printout routine 
GETFIL- Get mass storage sector to be output. 

3 b. 4.3 Internal Symbols 

51 - Starting Sector No. 

Wl - First word of starting sector 
W2 - Last word of last sector 

52 - Last sector 

N - Logical Unit Number 

LCSWT - Switch set ;> + absolute sector number wanted. 

MBUF - 96 word buffer 


c 
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BREAKPOINT PROGRAM 

37.0 PROGRAM FUNCTION 

The breakpoint program enables the operation of a job to be 
controlled from the COMMENT medium, A breakpoint is set initially 
to a core address in the command sequence of a program and the pro- 
gram is interrupted prior to execution of the instruction stored 
at the breakpoint location. 

The breakpoint program is placed in the system library on mass 
storage by the system initializer, A *B statement instructs the 
Job Processor to turn on the breakpoint load switch. If this 
switch is on when an execute statement (*X) is detected, the 
Job Processor places the breakpoint program after the job in 
unprotected* core. 

Before executing the job, the breakpoint program is entered. The 
entry point to the breakpoint program i* stored in $F3, (unpro- 
tected core location). A printout, BP, on the comment device 
indicates entrance to the program. The operator can then direct 
the operation of the breakpoint program by entering input state- 
ments through the comment device. 

When the job attempts to execute an instruction at an address to 
which a breakpoint has been set, the breakpoint program is entered 
with an indirect return jump through SF3. BP, location of break- 
point, is printed on the comment device. 

37 2 BRKPTD ROUTINE 

37.2.1 Internal Description 

"BRKPTD” is entered from lob Processor ( TPT13) module with the Q 
register containing the job entry location. $F3 is changed to the 
address of BRKP and control is passed to the READY internal entry 
point, which prints out BP. Upon entrance through BRKP the A, Q 
and I registers are saved. BF , (location where breakpoint set) 
is printed out. The breakpoint statement is then requested on the 
comment medium. Upon completion of the inputed statement, the first 
word is compared with a list of expected values. If none compare, 
a B01, statement is printed. If a match is obtained, the input 
statement is broken down into an array (BUF1). Upon jumping to 
the requested processor, the A register contains number of words 
in BUF 1 and the Q register contains the absolute location of BUF1. 
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The B01 entry causes the error message B01 statement to be printed 
out on the comment medium. Upon completion another breakpoint state- 
ment is requested. 

Control Statements 

The standard list of control statements for the breakpoint program 
are : 

INPUT STATEMENT COMPARE WORD TRANSFER ADDRESS 

*Ahhhh 
*C © 

*Dhhhh,HHHH @ 

*Ehhhh , hhhh , . . . 

*Ihhhh ££) 

*Jhhbh 

*M,S1,W1 rS2, U2rN £r) 

*P o 
*Qhhhh <££> 

*Rhhhh C5 
*Shhhh,hhhh, • . • 

*T . hhhh j hhhh , . - . £5 

The transfer addresses are declared as external names in the control 
module of the breakpoint program and as entry point names in the 
function modules. Each function is entered via a jump from the 
control module (BRKPTD). The return to the control module is via a 
jump to the entry point (READY) in the function module. 

Illegal Input Statement 

The breakpoint program will reject any control statement read for 
which there is no entry in its own list of control statements. 
Unacceptable control statements will be indicated via the comment 
B01, statement. The breakpoint program will then wait for another 
control statement . 


*A 

ENTERA 

*c 

RESUME 

*D 

DMPCOR 

*E 

ENTCOR 

*1 

ENTER I 

*J 

JUMPT0 

*M 

MASDMP 

*P 

PRTREG 

*Q 

ENTERQ 

*R 

RETJMP 

*s 

SETRRP 

*T 

TERMIN’ 


Add it iona 1 Statements 

To add or subtract function modules, the first two characters of the 
input statement must be added or deleted from the BPTAB table. The 
proper transfer address must be added or deleted as an external, 
and added or deleted from the transfer table BPREL. 

Entry Interfaces 

BRKPTD Entry from Job Processor (JPT13) module 

BRKP Entry from Job Address set in $F3 

READY Entry to process next Breakpoint instruction 

B01 Entry to B01, statement error message processor 

BUF A 40 word temporary buffer used for input and output 

REG First word address where the A, Q, I and M registers 

upon entrance are stored 


(f ^ 
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37.2.6 


37. 3 

37.3.1 


37 . 3.2 


37 


3. 


3 



External Symbols 

RBKP05 - SIFT Places input statements into array 
BRKP07 - BIASCI Binary to ASCII conversion 
BRKP1Q - BPL Table of breakpoint locations 

(BPL - 1) contains location of breakpoint currently 
processing. 

BRKP11 - INST Table of breakpoint instructions 

(INST - 1) contains instruction at breakpoint, 
currently processing 

BRKP12 - BPCOUNT Number of breakpoints set 
Internal Symbols 
USERP 
LOC 

LASTAB 
SIFT ROUTINE 
Int erna 1 Description 

This routine transfers the ASCII input buffer to a hexadecimal array. 
Upon entrance the array BUF1 is set to zero, flags are set and the 
input is scanned to find either a $FF or a comma ($2C). The pre- 
ceeding characters are formed into a word with the following checks 
made. 


Address of user ■ s entry. If set to address first 
time to breakpoint 
Location of breakpoint 
Must be last card for ,r BPTAB' table 


1. Hex ASCII character only. 

2. No more than 4 characters read. 


The Hex characters in BUF are transferred to binary and stored con- 
secutively in the BUF1. Upon reading a $FF, the last word is formed, 
the A register is set to the number of words in BUF1 and the Q 
register contains the absolute location of BUF1. 

If more than 15 words read or one of the above errors detected, a 
jump to B01 error message is made. 


Entry Interfaces 


SIFT 

GET 


Program entry 

Gets one character from BUF 


External Symbols 

BRKP03 - BUF 
BRKP04 - B0 1 


The buffer which contains Input statement. 
Error menage B01 routine. 
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Internal Symbols 


COUNT 

WCOUNT 

TEMP 

BUF1 


BIASCI ROUTINE 


Character counter 
Word counter 

Temporary storage of HEX number 
40 word hexadecimal buffer of input data, also 
used as output buffer 


Internal Description 

This routine takes the binary number in the A register and transfers 
it to an ASCII character which are stored in A and Q registers upon 
return. 


The SP routine stores $2020 in 40 word BUF1. The PROTEC routine 
checks the location specified in the A register to see if it is in 
unprotected core; if so, control is returned to call routine with A 
and Q registers set to entry condition. If an error is detected, 
the error message B02,hhhh is printed on the comment medium, where 
hhhh is the location in protected core. Control is returned to the 
calling program with the A register set to $FFFF. 


Entry Interfaces 


BIASCI 

SP 

PR0TEC 


Binary to ASCII code conversion 

Stores ASCII code for spaces in BUF1 

Checks if location in the A register is unprotected 


External Symbols 

BRKP06 - BUF1 Input output buffer 

RETJMP ROUTINE 


Internal Description 


The *Rhhhh statement instructs this module to return jump to location 
hhhh and begin execution at hexadecimal address hhhh+1. If the return 
jump is made to a closed loop, the breakpoint routine will be re- 
entered when an indirect jump is made to the address stored in 
location hhhh. 

The address hhhh is checked by PROTEC to see if unprotected. If the 
A register is negative upon returning, control is returned to READY. 

If not, the A, Q, I registers are restored, and control is returned 
jumped to hhhh. 
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37 . 5.2 


37 . 5.3 


37.6 

37 . 6.1 


t 


37 . 6.2 

37 . 6.3 


37.7 

37.7.1 



Entry Interfaces 


RETJMP Program entry 

External Symbols 


BRKP01 - READY 
BRKP02 - REG 
BRKP04 - B01 
BRKP09 - PR0TEC 


Prints BP and Requests next statement 
Registers upon entrance stored here 
Error return 

Checks if contents in A unprotected 


JUMPTO ROUTINE 


Internal Description 

The *Jhhhh statement instructs this module to jump to location hhhh 
and begin execution at hexadecimal address hhhh. 

Upon entrance the input array BUF1 is checked for one value only. 

If not, a B01 error message is printed. 

The address hhhh is checked by PROTEC to see if unprotected. If the 
A register is negative upon returning, control is returned to READY. 
If not, the Q, A and I registers are restored, and control is jumped 
to hhhh. 


Entry Interfaces 


JUMPTO Program entry 

External Symbols 


BRKP01 - READY 
BRKP02 - REG 
BRKP04 - B0 1 
BRKP02 - PROTEC 


Prints BP and requests next statement 
Register upon entrance to breakpoint 
Error return 

Checks if contents in A unprotected 


ENTER ROUTINE 


Interna 1 Description 

These instructions *Ahhhh, *Qhhhh, *Ihhhh instruct the enter program 
to place the hexadecimal value of hhhh in tne A, Q or I registers 
respectively. Upon entrance, the input buffer array BUF 1 is checked 
for one term. If one not present, the error message B0 1 is called. 
Upon finding a value, it l s stored in REG array for the appropriate 
register. 
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37.7.2 


37.?.3 


37. a 


37.6.1 


37.6.2 


37.6.3 


37, T 
37. 1.1 


Entry Interfaces 


ENTERS 

ENTERA 

ENTERI 


Enter in <3 register routine 
Enter in A register routine 
Enter in I register routine 


External Symbols 


BRKP01 - READY Prints BP and requests next statement 
BRKP02 - REG Registers upon entrance to breakpoint 
BRKPD4 - B01 Error return 


ENTER CORE ROUTINE {ENTCOR} 


Internal Description 

The statement "EHHHHihhhh-i . .. hhhh <€P) instructs ENTCOR 
routine enters the consecutive hexadecimal constants! 
hhhh! into sequential memory locations of unprotected 
core beginning with HHHH. Consecutive constants must 
be separated by commas and a carriage return must follow 
the last constant. Consecutive commas indicate the 
contents of the location that would receive the missing 
constant are not to be disturbed. If a location is to 
be set to zero! a zero must be indicated via a constant 
in the statement. A maximum of IS locations may be 
altered by a single "E statement. 

The array following the lb word array in BUFli contains 
$FFFF for each entry where two commas are not separated 
by a constant. 

Entry Interfaces 

ENTCOR Program entry 

External Symbols 

BRKPD1 - READY Prints BP and requests next statement 
BRKP04 - B01 Error return 

BRKPOI - PROTEC Checks if contents in A register unpro- 
tected 

REGISTER PRINTOUT {PRTREG1 
Internal Description 

The contents of the t^-> Q-> Ii fl and P registers are 
printed with tags specifying each register, i.e. A=HHHH! 
<3=HHHH! etc. 


^i>' 



CA 138-1 REV 10-67 





CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
Arden Hills Development DIVISION 


MAR 5 1971 


DOCUMENT CLASS 
PRODUCT NAME_ 


IMS 

1700 OPERATING SYSTEM 


PRODUCT MODEL no E00b" 3.Q 


PAGE NO.- 


37 . 


MACHINE SERIES- 


1700 


Upon entrance the input buffer array BUF1 is checked 
for valuesi if any existi the error message B01 is 
requested. If none existn the values in REG are trans- 
ferred to ASCII and stored in print buffer -CBUF1}. 
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37.9.2 

37.9.3 


37. io 
37.10.1 


37. io.2 


Upon transferring all values to ASCII and storing them in BUF1, it 
is printed out. 


Entry Interfaces 


PRTREG Program entry 

External Symbols 


BRKP01 - READY 
BRKP02 - REG 
BRKP04 - B0 1 
BRKP07 - BIASCI 
BRKP08 - SP 


Prints BP and requests next statement 
Registers upon entrance to breakpoint 
Error return 

Binary to ASCII conversion routine 
Stores spaces characters in BUF1 


SET BREAKPOINT ROUTINE (SETBRP) 


Internal Description 


The control statement *Shhhh,hhhh, . . . instructs the SETBRP 
program to set a breakpoint switch at each of the hexadecimal addresses 
specified. Each heaxdecimal address, hhhh, must be a memory location 
in umprotected core. If an address in protected core is specified, 
it is rejected and an error message B02, illegal address, is printed 
on the comment device. The breakpoint program then processes the 
next address in the input block. 

Up to 15 hexadecimal addresses may appear in a control statement. 

The total number of breakpoints which may be set at any time is 
represented by the value in H0BP. The value of this parameter is 
fixed at the time the breakpoint program is assembled. It may be 
changed only by reassembly of the program. 


The SETBRP program will ignore a hexadecimal address hhhh in the 
input block of a breakpoint had previously been set at this address. 
No indication of this action will be given. 


Locations were breakpoints are set and stored in the BPL table. 
Instructions that were replaced by breakpoints are stored in INST 
table. The number of breakpoints set is defined by BPCOUT. If 
BPCOUT is greater than NOBP (number of breakpoints that can be set) 
the error message B03,hhhh is printed and the rest of the statement 
is ignored. hhhh is defined as the first location breakpoint will 
not be set. 


Entry Interfaces 

SETBRP 
BPL 
INST 
BP CO NT 


Program entry 

Table of breakpoint locations 

Table of instructions replaced by breakpoints 

Number of breakpoints set 


/? 
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37.H.1 


37 . 11.2 


37 . 


37.12 

37.i 2 .i 


External Symbols 


BRKP01 - READY 
BRKP04 - BO 1 
BRKP07 - BIASCI 
BRKP09 - PROTEC 


Prints BP and requests next statement 
Error return 

Binary to ASCII conversion routine 
Checks if contents in A unprotected 


REMOVE BREAKPOINTS (TERMIN) 


Internal Description 

The statement *Thhhh,hhhh, . . . (gp instructs TERMIN to remove the 
breakpoint from the hexadecimal address hhhh. If a breakpoint is not 
set at a given address, the TERMIN program processes the next address. 
If a *T statement is not accompanied by any hexadecimal addresses, 
all breakpoints previously set are removed. Up to 15 addresses are 
allowed in a single *T statement. 


To remove all breakpoints, location defined in BPL are stored with 
values in INST followed by setting BPCONT to zero. 


Upon removing specified breakpoints, BPL is set to $FFFF. Upon comple- 
tion of a *T statement, the BPL and INST tables are packed to delete 
removed breakpoints. BPCONT is changed to the number of breakpoints 
left. 


Fntry Interfaces 


TERMIN Program entry 

External Symbols 


A.RKP01 - READY 
BRKP10 - BPL 
BRKP11 - INST 
BRKPia- BPCONT 


Prints BP and requests next statement 
Table of breakpoint locations 
Table of instructions replaced by breakpoints 
Number of breakpoints set 


DUMP CORE ROUTINE (DMPCOR) 


Interna 1 Description 


The control statement *Dhhhh,HHHH instructs the DMPCOR program to 
dump the contents of core beginning a? hexadecimal address hhhh 
and terminating at hexadecimal address HHHH. If the terminating 
address is less than the starting address, no data will be printed. 

If the stop address is not given, only one word will be printed. 

Ten words will be printed on a line together with the starting address 
of the first word on the line. If the last word of a line is equal 
to each word of the next line, only an asterisk will be printed and 
no further data will be printed until a variation is detected. The 
printout uses only hexadecimal digits. Upon completion of the dump, 
exit will be made to the control module (READY). 
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37.12.2 


37.12.3 


37. 12.4 


37.13 


DMPCOR routine is so set up that the mass storage dump program will 
use the DUMPC portion of DMPCOR routine. The following core loca- 
tions will be switches used by both routines: COREL, WLOC, STOP, 

COMPE, ASKWR, B. 


Entry Interfaces 


DMPCOR 

DUMPC 

PRINT 


Entry to module 

Dump core routine 

Prints one line of information 


Internal Symbols 


START 

STOP 

WLOC 

COMPE 

ASKWR 

WORDC 

LWORD 

COREL 


First location to dump 

Last location to dump or last word 

Current word location dumping or word number 

Word compare check flag 

Line compare check flag 

Word count 

Last word 

Location of current word dumping 
Absolute location of BUF1 


External Symbols 


BRKP01 - READY 
BRKP04 - B01 
BRKP07 - BIASCI 
BRKP08 - SP 


Prints BP and requests next statement 
Error return 

Binary to ASCII conversion routine 
Store space character in BUF1 


MASS STORAGE DUMP 


37.13.1 Internal Description 

The control statement *M , S 1 , W 1 B S2 ,U 2 , N instructs the MASDMP program 
to dump mass storage scratch area. Mass storage is dumped beginning 
with word W1 in sector SI and terminating with word W2 in sector 
S2. The following rules apply for values assigned to SI, Wl, W2 
and S2. 

1. A single sector will be dumped if only a value of SI is 
specified. 

2. No information will be dumped if SI is greater than S2. 

3. No information will be dumped if SI equals S2 and Wl is 
greater than W2. 

If N does not appear, the library unit is assumed. If N appears, 
it must be the logical unit number of some mass storage device. 
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The starting scratch sector specified will be read into core. The 
communication flags will be set and the buffer dumped by DUMPC in 
DMPCOR routine. 


37.13.2 


37 . 13.3 


37.13.4 


37.14 


The first line printed will be defined sector number followed by dump 
of sector in hex. If the contents of the last word of a line equals 
the contents of each word in the following line, only an asterisk will 
be printed. No further printout, except for sector number will be 
printed until a variation is detected. Upon completion of the print- 
out, exit will be made to the control module. 


Entry Interfaces 

MASDMP 

SECNO 

GETFIL 


Internal 

51 
W1 
W2 

52 
N 

MBUF 

Symbo Is 

External 

Symbols 

BRKPO 1 


READY 

BRKP04 

- 

BO 1 

BRKPO 7 

- 

BIASCI 

BRKPO 8 

- 

SP 

BRKP20 

- 

DUMPC 

BRKP21 

- 

COREL 

BRKP22 

- 

WLOC 

BRKP23 

- 

STOP 

BRKP24 

- 

COMPE 

BRKP25 

- 

ASKWR 

BRKP26 

- 

B 


Entry to module 

Sequence number printout routine 
Get mass storage sectors to be output 


Starting Sector Number 
First word of last sector 
Last word of last sector 
Last sector 
Logical unit number 
96 word buffer 


Print BP and request next statement 
Error return 

Binary to ASCII conversion routine 

Store space character in BUF1 

Dump core routine 

Location of current word dumping 

Current word location dumping or word number 

Last location to dump or last word 

Word compare check flag 

Line compare check flag 

Absolute location of BUF1 


RESUME MODULE 


37.14.1 Internal Description 

This statement *C instructs RESUME to exit the breakpoint routine 
and to resume execution of the job. If the breakpoint program had 
been initially entered from the Job Processor (JPT13) immediately 
after having been loaded, the breakpoint program will put the job 
into execution by transferring control to the address passed to the 
breakpoint program in Q. 
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If the breakpoint program had been entered from the job, the instruc- 
tion stored at the address of the last breakpoint will be executed. 

The location and instruction will be stored in the location preceding 
BPL and INST tables. Upon entrance to breakpoint, the instruction 
to be interpreted will be broken down into 5 groups. 

1. Skip type instruction 

2. Register type instruction 

3. Indirect relative mode 

4. Absolute and indirect absolute 

5. Direct relative 

The last three groups of instructions will be translated into an 
indirect absolute instruction before executing this new instruction. 

It is checked for being a return jump; if so, it is interpreted as 
a return jump instruction. 

The A, Q and 1 registers are returned, and the generated instruction 
is executed and control is returned to the job. 

37.14.2 Entry Interfaces 

RESUME Program entry 

37.14.3 External Symbols 

BRKP02 - REG 
BRKP04 - BO 1 
BRKP10 - BPL 
BRKP11 - INST 
BRKP12 - BPCONT 

37 14.4 Internal Symbols 

LOC 
LOCI 
LOC 2 
INSTR 
INSTN 
MODE 
DELT 
REG A 
REGQ 
REG I 


Location of instruction 

1st word location following instruction 

2nd word location following instruction 

Instruction 

First 4 bits of instruction 
Mode of operation 
Delta field 
A register saved 
Q register saved 
I register saved 


Register upon entrance to breakpoint 
Error routine 

Table of breakpoint locations 

Table of instructions replaced by breakpoint 

Number of breakpoints set 


j4 ' 1 Sli\ 


"v, 

yy 
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ON-LINE DEBUG PACKAGE 

The On-Line Debug Package {ODP} is a mass storage resident program 
with the entry name ODEGBUG in the System Directory. It is 
initiated with a manual interrupt. The manual interrupt 
program schedules the Manual Input for Process IlilPROI 
program which in turn schedules the on-line debug program. 

ODP is assembled as one program and loaded onto mass memory 
by the Initializer. When the program is scheduled by lilPROr 
its length in the System Directory entry is changed to the 
actual amount of core used. 

The program consists of executive routinesr processors! and 
subroutines* The executive routines are core resident as 
long as ODP is active {Area 1>. The processors are dynamic 
and in core only when the request associated with processor 
is being processed {Area 2>. The subroutines are also 
dynamic and in core only at the request of the processor 
requiring it {Area 3>. 

Figure 1 and 2 show the lay out of the program on mass 
memory and the program in allocatable core respectively. 

All communications to the executive routines by the processors 
and subroutines must have a relative corrective increment 
added because the relative position in core is not the same 
position on mass memory. 
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F i gure 2 

Allocatable Core Layout 


Figure 1 

Mass Memory Layout 


3^*1 Executive Routines {Area 1> 

The following functions {with entry names} are executed by 
the executive routine when called by the processors or 
subrout i nes • 

1. Initialize {0DP} 

In i t i a 1 i ze program by setting in-process flagr obtaining 
the standard output comment logical unit and printing 
DEBUG IN comment* 
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2. Another Request {LOKMOR} 

Background input buffer and request input from input 
comment device. Transfer Get Request Processor to 
area 2. 

3. Transfer Processor to Area 2 {BRIPRII 

Read processor from mass memory and go to processor. 

M. Transfer Subroutine to Area 3 {HANDLE} 

If subroutine not already in Area 3. transfer subroutine 
to Area 3 and go to it. 

5. Recoverable I/O Errors IIOERRI 

Print message and check for ODP not-active. If active, 
go request more. 

b. Irrecoverab 1 e I/O Errors {ERROR} 

Reset ODP in-progress flag and release core. 

7. Return from Processors {SOMMOR} 

Check for ODP not-active. If active, go request more, 
fl. Request Ho re {SOME! 

Print NEXT'? comment and go to get another request. 

Common Subroutine to Calculator Mass Memory 
Address of Processors and Subroutines {MMADDR}. The 
location of the program on mass memory is obtained from 
the system directory entry for ODEBUG. This location 
plus the relative address of the processor or subroutine 
results in the mass memory address- 

n 

3 .2.0 Processors {Area 2} 

The following processors with the exception of the Get 
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Request Processor are brought over into Area 5 by the Get 
Request Processor. The transfer is a 1 ways done even though 
the processor may already be in Area E. The Get Request 
Processor is brought over by the executive program. 


3® .E.l Get Request Processor IGETREfll 

This processor is used to bring into area E the processor 
correspond i ng to the request desired. 

A three character field is obtained. A check for a valid 
field terminator is made. {Valid terminators are zeror 
commar and $FF>. A format incorrect message is initiated 
if the terminator is not valid. Otherwiser a search is 
done for the mnemonic. If the mnemonic is not foundr an 
illegal request message is initiated. Otherwiser the index 
is used to obtain the relative address of the processor. 

The mass memory address is calculated and the transfer 
initiated by jumping to BRIPR1 in the executive routine. 

If it is the OFF mnemonic! control is transferred to the 
off logic in the executive routines and no processor is 
i n i t i ated • 

jfl.E.E Load Hexadecimal Processor {LHXREfll 

This processor loads hexadecimal values into core. Fields 
are obtained and their values summed until a slash field 
terminator is obtained. The sum is the starting core 
location at which the load is to begin. The asterisk field 
terminator is illegal if the slash field terminator has not 


a > 
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been encountered. Following the slashr fields are obtained 
and assumed to be data which is stored into core* An 
asterisk field terminator causes the preceding field to be 
saved as an op code. The following field is then calculated 
as a relative address. If the op code is not zero» an 
eight bit relative address is obtained and combined with 
the opcode to form a one word relative instruction. More 
than one slash field terminator will result in a format 
incorrect message. 

3^.2. 3 Dump Core Processor IDPCREfll 

This processor dumps the specified contents of core in hexa- 
decimal. Three fields are obtained. A check for valid 
field terminator is made and a format incorrect message 
initiated if not valid. The fields are converted to 
hexadecimal. A check for non-negative addresses is made. 
Negative addresses result in a format incorrect message. 

If the starting address is greater than the last addressr 
the first and last are set equal- As many calls as are 
required are made to the Print Line subroutine dump one 
line Ifl cells! in the comment output device. 

jfi.B.3.1 Search Core Processor ISCNRE(2> 

This processor searches core for a particular bit configura- 
t i on as defined by number and mask field. Core is searched 
in increments as specified. An index is set to get five 
four character fields. Each field is checked for a valid 
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field terminator and converted to hexadecimal- An invalid 
field terminator results in a format incorrect message. 

Each field is checked for being blank. Blank fields are 
replaced with their substitute. Only the mask and increment 
have substitutes with meaningr the others are set to zero. 
After all fields have been obtained* the search is begun. 


If the desired conf i gurat i on is obtained* a heading is 
printed once* followed by the location and contents- When 
the search is complete* a search finished message is initiated. 

3fl . E . 3 . 5 Set Core Processor ISETREfll 

This processor fills the specified core with the specified 
value. An index is set to get three fields- Each field is 
checked for a valid field terminator and converted to 
hexadecimal. An invalid field terminator results in a 
format incorrect message. The core locations specified 
are checked for being non-negative. The pattern is then 
stored into core. 


3fl - E . 3 . 3 Hove Block of Core Processor IfIBCREC?} 

This processor moves a block of core to another location 
in core. An index is set to get three fields. Each field 
is checked for a valid field terminator and converted to 
hexadecimal. A non-negative check is made on each core 
location specified. A check is made to determine if a 
backwards move is required. If so* the move is made 
starting with the last location rather than the first. 
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36 . 2 . 4 Scheduler Request Processor {SCHRE<3> 

This processor creates a scheduler request and makes a 
call to the monitor for its execution. An index is set to 
get three four character fields. Each field is checked for 
a valid field terminator and converted to hexadecimal. The 
scheduler call is constructed and a call made to the Monitor 
for its execution. Note that for the request priority 
field only the last digit is used even though more may be 
entered. 

36*3.5 Search Core for Parity Error Processor -CSPEREC?} 

This processor searches core for a parity error condition. 
One field is obtained and converted to hexadecimal. A valid 
field terminator check is made. A blank field will be 
replaced by $7FFF Tend of core with full compliment of 
memory}. A negative address check is also made. Interrupts 
are inhibited during each parity error check. Thus no 
systems parity errors are obtained. The location of each 
parity error is printed. 


3 fl .5.b 



Clear Protect Bit Processor -CCPPREfl} 

This processor clears the protect bit for the cells specified. 
An index is set to get two fields. Each field is checked 
for valid field terminator and converted to hexadecimal. 

The core addresses are checked for being non-negative. The 
specified protect bits are cleared. 
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3® • 2 . fc> . 1 Set Protect Bit Processor -CSPPREC?} 

This processor is identical to clear Protect Bit Processor 
except that the bit is set. 

3®. 5. 7 Add Hexadecimal Processor {ADHREfl} 

This processor adds a maximum of 6 hexadecimal numbers. An 
index is set to get 6 fields. Each field is checked for a 
valid control character and converted to hexadecimal. It 
is then added into the accumulation. The result is printed. 

3^.2. 6 Subtract Hexadecimal Processor ISBHREd?} 

This processor subtracts two hexadecimal numbers. 

An index is set to get two fields. Each field is checked 
for a valid control character and converted to hexadecimal. 
The two results are subtractedr first field minus second 
fieldr and the result printed. 

3®"2. c l Generate Scratch Area Processor {GENREC?} 

This processor allocates an area of allocatable core. An 
index is set to get two fields- Each field is checked for 
a valid control character and converted to hexadecimal. A 
validity check is made on the request priority {greater than 
two!. The core request is constructed and a call to the 
Monitor to allocate core is made. If allocation is not 
possible, a NO CORE AVAILABLE comment is printed. If the 
core a I I ocat i on was made, a comment indicating its first 
and last location is printed. 
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3®. 2. ID Release Core Processor IRELREfll 

This processor releases core starting at the location 
specified. One field is obtained and converted to hexadecimal- 
The result is checked for being non-negative and stored in 
the release request. A call is then made to the Monitor to 
release core. 

38.2.11 Dump A 1 1 ocatab 1 e Core Map Processor -CDACREOl 

This processor dumps a map of allocatable core. A ^snap 
shot^ 7 of allocatable core is made with interrupts inhibited. 

The time that interrupts are 1 ocked-out will depend on the 
amount of core allocated but will normally exceed the SD 

"A 

microsecond limit placed on interrupt lock-out. The snap 
shot executes the following logic. Each piece of allocatable 
core is checked for being empty or filled. If fill ed r the 
starting address and length are stored in a buffer. If 
emptyr an asterisk flag is stored in place of the length. 

When all of allocatable core has been checked or the buffer 
is f u 1 1 r the snap shot is complete. A message is then 
constructed to print out the map. The subroutine hex to 
ASCII is used to convert hex to ASCII and insert it in the 
message. A call to the Monitor is made to initiate the 
print out of the map. 

3®. 2.12 Print Thread Processor -CPTHREfll 

This processor prints the location and the first two words 
of the first ten entries or less on a thread. An index is 
set to get two fields. Each field is checked for a valid 
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control character and converted to hexadecimal. The two 
fields are added to obtain the location of the top of 
thread. Under interrupt lock-out a ^snap shot^ 7 of ten 
entries or less on the thread is taken by going down the 
thread and storing the location of the entry and the first 
two words in a buffer. A heading is printed and followed 
by a line at a time containing the entry location and its 
first two words. A subroutine is used to add a carriage 
return to each liner store the length of the message into 
the request parametersr and call the flonitor. 

3 ° • 5 . 1 3 Haqnetic Tape notion Processor -CflTRREfl! 

This processor handles all tape motion requests. The 
logical unit field is obtained and converted to hexadecimal. 

It is then checked for being assigned to a magnetic tape 
device. If the logical unit is not properly assignedr an 
illegal logical unit comment is initiated. The number of 
files -[records! field is obtained and converted to hexadecimal. 
It is checked for being a non-negative number. If this is 
an advance record request r special coding reads a 10 word 
record into core the number of times specified to accomplish 
the advance- 

Otherwise f a tape motion request is initiated for the 
desired motion. This request is repeated until the 
specified number of executions have been done. A subroutine 
is used to check for valid field terminator and convert 
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from ASCII decimal to hexadecimal- A table contains the 
motion control codes used in the request and is indexed by 
the position of the request mnemonic in its table in the 
Get Request Processor- 

3^.3 Subroutines {Area 31 

The following subroutines are brought over into Area 3 by 
the Processors as needed. If the subroutine is already in 
Area 3? the transfer is not done- 

36-3-1 Print Subroutine {PRINT! 

This subroutine contains message skeletons used by the 
various processors. A table contains the relative starting 
location and length of the message skeleton thus allowing 
the skeletons to be of different lengths- 

36 . 3 .B Get Field Subroutine {GETFLDD- 

This subroutine finds the next field in the input buffer 
that is terminated by a comma ? slash? asterisk or end-of- 
text character. It has the following character i st i cs : 

1- The number of characters desired is in the (3-register 
on entry- For hexr this is four or lessi for decimal 
this is five plus sign or less- 
3- If the field contains more than the desired number of 
characters? only the desired number preceding the 
control character will be used- 
3- If the field contains less than the desired number of 
characters? only the actual number of characters will 
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be used. 

M. If the field is not present {i.e.. short form of a 
request may be used}, blanks will be returned to the 
caller. The control character will be set to zero. 

5. If a slash control character has been encounteredr 
blanks are returned until the condition is reset by 
the caller. {This permits fields to be not present 
preceding a slash}. 

b. The control character is placed in the cell labeled 

FIELD in Area 1. For a hexadecimal number, characters 
are placed in FIELD +3.3. For a decimal number, the 
characters are placed in FIELD +1.3.3. 

3^-3. 3 ASCII to Hexadecimal Conversion Subroutine IASCHEX} 

Converts the ASCII characters in FIELD +5.3 to hexadecimal. 
Non-hexadec i ma I characters cause the accumulation to be 
c I eared . 

36 , 3.4 Print Line Subroutine IDflPBUFI 

This subroutine prints one line on the comment output device 
containing the location and contents of eight cells or less. 
On entry the ^-register contains the number of cells to be 
printed. A negative (3-register indicates that only the 
location is to be printed. Two forms of the call permit 
the location of the cells to be the actual core location or 
a specified location. In the latter case, a relative 
address defines the actual location. Before the call to 
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the Monitor is made f a check is made of the in-progress 
flag. If off r the package is turned off without printing 
the 1 ine. 

3fi • 3 . 5 ASCII Decimal to Hexadecimal Subroutine -CASCDECI 

This subroutine converts ASCII characters in locations 
FIELD + 1 • 2 » 3 to hexadecimal via a decimal conversion. The 
result is return to the A-register. Legal characters are 
+ r-rO- c l. Illegal characters and plus and minus clear out 
the accumu 1 at i on • Values greater than 2 will result 

in an error. 

3fl . 3 . b Hexadecimal to ASCII -CHEXASCI 

Converts the hexadecimal number in the (2-register to two 
words of ASCII characters and stores them starting at the 
location specified by the relative address following the 
call. Return is made to second word following the call. 
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RELOCATING LOADER 

The Loader is a non-resident sub-program of the 1700 
Operating System. The Loader is capable of loading 
relocatable binary programs produced by the 1700 
Assembler. The design of the Loader is independent of 
the I/O configuration of the hardware for the system 
on which it operates. A single version of the Loader 
accepts input from any devicei whether buffered or un- 
buffered. One of these devices may be a mass storage 
device such as the Library Unit or the Scratch Unit. 

STORAGE OF THE LOADER 

The Loader is stored in relocatable binary form on some 
external medium. The Loader is placed in the System 
Library as an absolute record during the System 
Initialization procedure. 

LOADING OF THE LOADER 

The Loader may be brought into core in one of two ways: 

1. Pre-job initialization by the Job Processor. 

2. A formal Loader Request within the user^s 
program. 

The Loader is read as an absolute record from the System 
Library and placed in the upper most part of unprotected 
core. The Loader is accessed in the System Library 
through an entry in the System Library Directory. A 
word in this entry contains the length of the Loader. 

The length of the Loader is subtracted from the 
address which is the upper limit of unprotected core. 

The resulting address is the 1st core location to be 
occupied by the Loader. 

The upper limit of unprotected core is contained in 
location $Fb. It is defined as the highest {toward 
$7FFF> unprotected address +1. T ^e lower limit of 
unprotected core is contained in location $F7. It is 
defined as the lowest {toward 0} unprotected address -1. 

Pre-job initialization by the Job Processor is performed 
whenever the Job Processor >~eads an ^*P^ input statement. 
Refer to Chapter 2b for further information concerning 
pre-job initialization. Refer to Chapter 11 for further 
information concerning Loader Requests. 

OPERATION OF THE LOADER 

A Loader operation is initiated with a jump to the lowest 
{toward 0} core location occupied by the Loader. 
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3T-3-1 Types of Loader Operations 

The particular Loader operation to be performed is 
determined by the information passed to the Loader 
from the monitor via the A and <2 register as illus- 
trated: 


IS 

4 3 D 

A reg : 

LU T 

IS 

0 

<2 re q : 

TNA 

The ^T' 7 field indicates the type of Loader operation 

to be performed. 


T Field 

Loader Operation 

D 

Relocatable Binary Load 

1 

Subroutine Load 

3 

Program Load 

3 

Memory Map List 

4 

Entry Point Lookup 

S 

Subroutine Loading 

b 

Patch to Core Resident 

7 

Set Data Base 

The ^LU' 7 field contains the logical unit number of 

the input device 

to be used for this operation. This 

field is ignored 

if the Loader operation is Memory Map 

List. 


The TNA field contains the core address for storage of an 

entry point name. 

This information is significant only 

if the Loader operation is Program Load. The Q register 


is ignored in all other cases. 

3^ 3.1.1 Relocatable Binary Load Operation 

The purpose of this operation is to load relocatable 
bi nary programs from any peripheral device. The Loader 
call to load relocatable binary input requi res that the 
T field is set to zero. The LU field contains a number 
which refers to an ordinal in the equipment table. If 
the left most bit of the LU field is onen the Loader 
will assume the input device is the standard input 
device. In this case t the Loader will address the standard 
input device indirectly via the address SFI in the com- 
munication regionn which is the location containing the 
ordinal for this device in the equipment table. The <2 
register is ignored for relocatable binary loading 
operations • 
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3 c i.3.i.3 


3 ^. 3 . 1. 4 


Relocatable Binary Load Operation for Load-and-Go Input 

The purpose of this operation is to load relocatable 
binary programs from the mass storage unit which contains 
the scratch area. The Loader call to bring in LOAD-AND- 
GO input requires that the T field is set to zero. The 
LU field is set to the number of the equipment table 
entry for the mass storage device containing the scratch 
area. The <2 register is ignored. 

For LOAD-AND-GO input! the Loader will address the mass 
storage device containing the scratch area indirectly 
via the address $B3 in the communication region. This is 
the location containing the ordinal for this input 
device in the equipment table. 

Subroutine Load Operation 




This operation is performed subsequent to relocatable 
binary loading. As a part of the relocatable binary 
loading procedure! the Loader will attempt to match external 
names in the Loader Table with entry point names in 
the Program Library Directory. Unpatched externals are 
those for which there are no corresponding entry poing 
names in the Program Library Directory. 


For every match that is made i the Loader will load the 
appropriate routine from the Program Library. If any 
unpatched externals are not matched by entry names in 
the Program Library! the names for these unpatched externals 
are printed on the comment medium. The operator must 
then type in ** {carriage return! to resume operations! 
or "T {carriage return! to abandon the job. For 
subroutine loading! the T field is 1 and LU field is 
ignored. The input device is understood to be the mass 
storage device containing the Program Library. The <2 
register is ignored in subroutine loading. 


The Loader will address the mass storage device containing 
the Program Library indirectly via the address $03 which 
contains the ordinal of this device for the equipment 
table . 


Program Load Operation 

This operation is used to load a program from the Library 
unit and enter it immediately for execution. 
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For program loading. the T field is S and LU 
field is ignored. The input device is understood 
to be the mass storage device containing the program 
library. The Q register contains the core address 
where the program name is stored in the internal 
core of the computer {ASCII}. 

The input device is addressed by the Loader 
in the same manner as for a SUBROUTINE LOAD 
OPERATION. 

The program name is an entry point name of the 
program to be loadedr and it must appear in the 
Program Library directory. 


31.3.1.5 Nemory Nap Operation 

The T field is 3 if the Loader is to produce a 
memory map- The LU field is ignored and the Q 
register is ignored. This operation may take 
place subsequent to each subroutine load. This 
type of operation consists of the listing of 
the names in the entry point table together with 
their respective addresses- 

The first word addresses of common and data 
storage reservations appear in the map as entry 
point addresses. 

If common storage had been declared during a 
previous load operation! the name ^mukCON' 7 
together with the common storage relocation base 
would appear ahead of the entry point table on 
the 1 ist output. If data storage had been 
declared during a previous operation, the name 
'’mmmDaT' 7 together with the data storage reloca- 
t i on base would appear ahead of the entry point 
table on the 1 ist output. 


g'TS-l.b Entry Point Lookup 

The T field is 4 for the Loader to look up an 
entry point. The Q register specifies the 
location of the name as follows: 


B i t 

IS — 

1: 

core location of ASCII name 

B i t 

0 = 

0: 

name starts in left character 
of word 
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Bit 0 = 1: name starts in right character 

of word 


The Loader tries to find the specified name 
in its symbol table. If the name appears * the 
A register contains the core address of the name 
on exit. If the name is not present * the Loader 
types on ED3 message on the output comment device 
and waits for input- 


3^.3* 1-7 Subroutine Loading 

If T = 5 on input r the Loader does the same as 
if T were 1* but no memory map is produced. 

3T.3.1.S Patch to Core Resident 

If T = b on input * the Loader searches the core 
resident directory for entry points to match any 
undefined externals in its table- If any are 
foundr a dummy program is loaded which contains 
the absolute addresses of core resident entry 
points. 

This dummy program and its directory are written 
when the system is initialized. The directory is 
in the same format as the Program Library directory* 
with all entry points pointing to the same program. 
This program consists of a dummy MAH block* as 
many ENT blocks as necessary to accommodate all 
core resident entry points and a dummy XFR block. 

The Loader treats this as a normal program* loads 
it in and patches any entry points referenced 
by other programs • 


3CJ.3.1-T Set Data Base 

If T = 7 on input* the Q register specifies the 
core location to which subsequent data blocks 
should be relocated. 
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3^ 3- 3 Allocation of Core for Programs Loaded by the Loader 

The limits of unprotected core are defined as 
f o 1 1 ows : 

The location $FL a number equal to the 
address of the highest {toward 57FFF3- 
unprotected location +1. 

2- The location $F7 contains a number equal 
to the address of the lowest unprotected 
location -!• 

The Loader occupies the upper part of this block 
of unprotected core. {Refer to item 2S.2.3- 
The lowest {toward 03- core location to occupied 
by the Loader has the address equal to - 

{5FL3- - the length of the Loader. 

This address will hereafter be referred to as the 
^base address of the Loader*' 7 


3^3.2.! Loader Table 

The Loader Table generated by the Loader is 
situated immediately below the Loader in 
unprotected core- The Loader Table consists of 
entries of 5 words each in length. The first 
entry generated by the Loader is recorded at 
the five addresses immediately preceding the 
base address of the Loader. As additional entries 
are made to the Loader Tablet the table is 
expanded in size downward through memory to 
the lower 1 imit of unprotected core. The 
address of the lowest {toward 03- location 
occupied by the Loader Table will hereafter 
be referred to as the ''base address of the 
Loader Table.' 7 
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3*13.2.2 Available Core 

That portion of the block of unprotected core not occupied by 
the Loader and the Loader Tables is core that is available 
for storage of the relocatable binary input read and processed 
by the Loader. 

By definition the upper limit of available core is equal to 
the base address of the Loader Table. 


The lower limit of available core is by definition the address in 
the location $F7 which is also the lower limit of unprotected 
core. (Refer to item 28.3.2.11 for a definition of the lower 
limit of available core where there is a Data Storage block 
reservation.) 

Programs are loaded into core starting at the location whose 
address is ($F7)+1 and proceeding toward the upper limit of 
available core. 

3^3. 2.3 Temporary Limits of Unprotected Core 

The locations $EC and $ED contain the temporary limits of un- 
protected core. At the time the Loader is brought into core by 
the monitor during pre-job initialization, the temporary limits 
of unprotected core are set to the limits of unprotected core: 

upper temporary limit of core 
lower temporary limit of core 

The temporary limits of unprotected core may be altered by issuing 
a core request in which the A register is set to the upper address 
and Q the lower. The Loader issues such a core request at the 
end of each Loader operation (except for Maps). The lower temp- 
orary limit is reset to the address of the highest (toward $7FFF) 
location occupied by the programs loaded during this loader opera- 
tion. 

i 

The upper limit = ($EC) is always reset to the upper limit of un- 
protected core unless a common storage reservation had been made 
either during the current load operation or a previous one. (Refer 
to item 28.3.2.6.) 

3*13. 2. 4 Unprotected Core in the Communication Region 

In addition to the unprotected core block defined in item 28.3, 
there is a block of unprotected core in the communication region. 
The unprotected block begins at the location $C5 and terminates 
at $E4. 


( $F6) — * $EC where ($EC) - 
( $F7 ) — * $ED where ($ED) = 
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3*1.3. 2. 5 


31.3.2.6 


In addition to the limits of available core defined by item 28.3.2.2 
the Loader regards the block of unprotected locations in the 
communications region starting at $C5 and terminating at $E3 
as available core. Although $E4 is unprotected, it is not included 
as part of available core since it contains information used by 
the Loader for a Load-and-Go operation. 


Diagram of Unprotected Core and Available Core 


„Block of protected core from 
m$F6) to $7FFF 


LOADER 

Loader Table expands 
downward toward 0 

Unused avail core 

Programs loader during 
load option 


(Block of unprotected core 
Hf ($F7)+1 to ($F6)-1 


l---± 4 


location $E4^— 

available com regio n*r 




Block of protected core from 
$E5 to ( $F7 ) 


f. 

i 


Block of unprotected core from 
C5 to $E4 


Block of protected core from 
0 to $C4 


Allocation of Core for Common Storage Reservation 


Locations which are set aside for a Common Storage block reser- 
vation during a Loader Operation are situated at the top of un- 
protected core. Depending on the length of the reservation, it 
may overlay part or all of the Loader (and/or the Loader Tab le) . 
The address of the lowest (toward 0) storage cell of this reser- 
vation is equal to 

($F6) - no. of location of Common Storage. 

The starting address of the Common Storage Reservation will here- 
after be referred to as the 'relocation base for Common Storage". 


c 
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3% 3.2.7 


Item 28.3.2.2 discusses Available Core and defines the limits 
thereof. When a Common Storage block reservation is set aside 
during a Loader Operation, this definition remains valid provided 
the following is true: 

The address equal to the relocation base for Common Storage is 
numerically greater than or equal to the base address of the Loader 
Table. 


The Loader will not load a program into core if it is to be stored 
in an area of memory which is set aside for Common Storage. There- 
fore, if the address equal to the relocation base of Common Storage 
is numerically less than the base address of the Loader Table, 
the following is true: 

The block of Available Core is truncated at its upper end such that 
the relocation base of Common Storage replaces the base address of 
the Loader Table as its upper limit. 


Item number 28.3.2.3 discusses the Temporary Limits of Unprotected 
Core and defines the limits thereof. The upper limit of unprotected 
core remains as the upper limit address in location $EC until a 
Common Storage block reservation is made. At this time the relo- 
cation base for Common Storage replaces the upper limit of unpro- 
tected core as the upper limit address in $EC. It remains constant 
during all subsequent Loader Operations. (The next time the monitor 
brings the Loader back into core these temporary limits will be 
reset to the permanent limits in locations $F6 and $F7.) 


Diagrams of Unprotected Core with a Common Storage Reservation 


Common Storage 
Reservat ion 


Available Core 



In the example above the relocation base of Common Storage is 
numerically greater than the base address of the Loader Table. 
Therefore, the base address of the Loader Table is the upper limit 
of Available Core. 


Common Storage 
Reservation 


Available core 
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In the above example the relocation base of Common Storage is 
numerically less than the base address of the Loader Table. 

Therefore, the relocation base of Common Storage is the upper 
limit of Available Core. 

3^3. 2.8 Extension of Available Core 

When a program is being loaded into core, the first input record 
of relocatable binary format read by the Loader is the NAM block. 

From the information in the NAM block, the Loader determines the 
amount of Data Storage and Common Storage to be reserved, and, in 
addition, the amount of core necessary to load the program. This 
amount of core is reserved while the NAM block is being processed. 
During a Loader Operation, it is possible that the amount of core 
required for storage of the programs to be loaded exceeds the 
capacity of available core. If such is the case, the following 
occurs during the Loading Operation: 

The programs are loaded in the manner described in the 1st para- 
graph of this item. When the NAM block of "PROGRAMX” is read, it 
is determined that in order to reserve enough core in which to 
load n PR0GRAMX M the capacity of Available Core will be exceeded. 

The contents of Available Core at this time consists of an absolute 
record of all those programs loaded during this operation prior 
to ,r PR0GRAMX". The Loader will write this information onto the 
mass storage device containing the Scratch area. 

Following this n PR0GRAMX f ' and all those programs loaded subsequent 
to "PROGRAMX" will be loaded into the same block of available 
core. As the NAM block of each program is read, space is reserved 
in core for the program to be loaded. If while loading ”PR0GRAMY M , 
the capacity of Available Core should be exceeded a second time, this 
procedure is repeated. All those programs loaded prior to "PROGRAMY” 
and starting with ’’PROGRAMX’' are written as an absolute record onto 
the mass storage unit containing the Scratch area. This second 
record is written at the end of the 1st. 

The entire procedure repeats itself until the last program is 
loaded in. When the load of the last program is complete, whatever 
remains in Available core is written as absolute record onto the 
mass storage device containing the scratch area at the end of the 
information already written into this scratch area. The entire 
information in the scratch area is then read as an absolute record 
back into core starting at the lowest (toward 0) address in Avail- 
able core, 

($F7)+1. 
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This information consisting of alp. the programs loaded during the 
Loader Operation, when read into core will overlay that area of 
unprotected core occupied by the Loader Tables and/or the Loader. 

That aicea of core occupied by the Loader Table and the Loader is 
considered to be an "Extension of Available Core n or more simply 
"Extended Core n . Concerning Loader Operations, the block of core 
referred to as Available Core may also at times be referred to as 
n Load Time Core ". Concerning execution of the programs loaded by 
the loader, that block of unprotected core from ($F7)+1 to ($F6)-1 
may also be referred to as Execution Time Core lf • 

During a Loader Operation, the Loader maintains 2 sets of address 
counters. One set is used to reference locations in Load Time Core 
and the other to reference locations in Execution Time Core. They 
are respectively referred to as the Load Time and the Execution Time 
address counters. 

/ 

If at some point during a Loading Operation, part of the Command 
Sequences of the program loaded is on mass storage and part is held 
in Load Time Core, the relocat ionship between the two sets of address 
counters is as follows: 

EXECUTION TIME ADDRESS COUNTER - LOAD TIME ADDRESS COUNTER = 

MASS STORAGE WORD COUNT. 

If throughout the entire Loading Operation, the entire Command 
Sequence of the program loaded is held within Load Time Core, 
the values for the two sets of address counters are equal. (If a 
Data Storage block reservation has been made during the Loader 
Operation the relationship between the two sets of address counters 
changes. Refer to item 28.3.2.13. 

The Loader will not load a program if the core it occupies at 
Execution Time extends beyond the upper limit of unprotected core. 

If a Common Storage block reservation has been made during the Loading 
Operation, the relocation base for Common Storage effectively 
becomes the "upper limit of Execution Time Core". 

The information to be recorded on mass storage is placed in the 
scratch area. The 1st sector in the scratch area is the beginning 
of this information unless the scratch area also contains Load-and- 
Go storage. In this case the location in the communication region 
$E4 contains the scratch sector number for the end of the load- 
and-go information. Then the starting sector number for the 
information placed in the scratch area by the Loader is equal to the 
1st sector number of the scratch area + ($E4). The locations 
$co and $C1 contain the starting sector number for the scratch area. 
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3 c l3.2.9 Diagrams of Unprotected Core Showing Extension of Available Core 


COMMON 

STORAGE 


EXTENDED 

LOAD TIME 
CORE 


COREu 



LOADER 



( 



vLOADER TABLE 

PROGRAM D 



~~ PROGRAM C 


^PROGRAM B 

PROGRAM I 
PROGRAM H 

\ PROGRAMS IN 

— PROGRAM A 

PROGRAM G 

SLOAD TIME 


PROGRAM F 

CORE 


• PROGRAM E 

J 


> 

/ 



Start of programs 
end of load~&-go 

Start of scratch 


CORE MASS STORAGE UNIT W/SCRATCH AREA 


The above diagram illustrates allocations of unprotected core and 
mass storage unit scratch area during loading operation. 


COMMON 

STORAGE 


EXECUTION TIME 
CORE 


The above illustration shows the programs in core following the Loading 
Operation. That area of occupied by the Loader Table is now overlaid 
by the last of programs by the Loader. 

3^.3. 2. 10 Odd Sectors 

When the Loader transfers information from Load Time Core to the 
Scratch area on mass storage (in the manner described in item 
28.3.2.8), the information is transferred in integer multiples 
of 96 words, or - the information is transferred in ’’even sectors”. 

(The word count per mass storage sector is 96.) If the number 
of words to be transferred from Load Time Core will hereafter 
be referred to as the ”odd sector”. 


PROGRAM^ I 
PROGRAM H 
PROGRAM G 
PROGRAM F 
PROGRAM E 

PROGRAM^ 0 

PROGRAM C 
PROGRAM B 
PROGRAM A 
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As an illustration, K is the number of words in Load Time Core 
such that 

K = N* 96 + M 

where N is an integer and 

1 ^ M< 95. 

When the information transfer occurs, the first N*96 words in 
Load Time Core are written in the scratch area on mass storage. 

The starting sector for this write operation is the one after 
the last sector containing information from this Load Time Core 
as a result of a previous write operation. If this is the 1st such 
mass storage write operation to occur as a result of loading a 
program, the starting sector is the 1st sector in the scratch 
area. (In the event there is Load-and-Go information in the scratch 
area, the starting sector is immediately after the last sector 
containing Load-and-Go information. ) 

The last M words are moved from their storage positions to locations 
in the lower end of Load Time Core. The next program to be loaded 
is stored immediately above the area in Load Time Core containing 
the odd sector. The procedure occurs as follows: 

A. Unprotected Core Prior to Info XFER 
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C. Unprotected Core Subsequent to Info XFER 


LOADER 

LOADER TABLE 


PROGRAMS LOADED 
SUBSEQUENT TO INFO 
XFER 

ODD SECTOR 
(WORD COUNT=M) 



D. Scratch Area of Mass Storage Subsequent to Info XFER 

I' 

j ( N*96 WORDS PLACED ON M.S. BY MOST 
r RECENT INFO XFER 


COMMAND SEQ INFO FROM PREV. M.S. 
WRITE OPTNS . 


j LOAD- AND- GO INFO. 

i 


The next time a transfer of information to mass storage takes 
place, the information in the odd sector will appear on mass 
storage immediately after the last sector of information to be 
transferred to the scratch area. 


If there is no odd sector, such that 
K = N*96 and M = 0. 

the starting location for the next program to be loaded following 
the information transfer is the 1st location in Load Time Core. 

If the word count K in Load Time Core is less than 96, no information 
transfer will occur. 


3^3.2.11 Allocation of Core for Data Storage Reservation 

A Data Storage block reservation is made during a Loader Operation 
when the Loader begins to load a program which declares data and 
no previous Data Storage block reservation was made. Two areas of 
storage are set aside when a Data Storage block reservation is 
made. A Data Storage block reservation is made in the following 
way : 
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1. The information in Load Time Core is transferred to the 
scratch area on mass storage in the manner described by 
item 28.3. 2. 10. 

2. A block of core is set aside at the lower end of Load Time 
Core. It is equal in length to the amount of Data Storage 

to be reserved. This area of core will hereafter be referred 
to as the Load Time Data Storage Buffer. 

3. The information transfer in step 1 may have resulted in an 
n odd sector” remaining in Load Time Core. If so, the odd 
sector now occupies core locations in the area assigned as 
the Load Time Data Storage Buffer. The odd sector is to be 
moved to core locations immediately above the area of core 
reserved as the Load Time Data Storage Buffer. 

4. An area of core equal in length to the Load Time Data Storage 
Buffer is set aside in Load Time Core. This second block is 
situated immediately above the area of core now containing 
the odd sector. This block of core will hereafter be referred 
to as the "Execution Time Data Storage Block Reservation." 

5. The area of core referred to as the Load Time Data Storage 
Buffer is no longer included as part of Available Core as 
defined by item 28.3.2.2. The new lower limit of Available 
Core (hence, the new lower limit of Load Time Core) becomes 
the last storage address of Load Time Core. 

6. The 1st program to be loaded after a Data Storage Block 
Reservation is made is read into core starting immediately 
above the Execution Time Data Storage Relocation Base. 

The area of core set aside for Data Storage may be preset by the 
information the Loader reads into core. Such information is placed 
by the Loader in the Load Time Data Storage Buffer. At the end of 
either a subroutine Load or a program load operation, the information 
in the Load Time Data Storage Buffer is transferred to the Execution 
Time Data Storage Block Reservation. The Load Time Data Storage 
Buffer is held in core throughout the Loader Operation. The Execution 
Time Data Storage Block Reservation is considered to be part of the 
command sequence of the programs being loaded. This block reservation 
may or may not be transferred to the scratch area on mass storage 
during a loading operation. Therefore the above mentioned transfer 
of information may be a core to mass storage transfer. However, if 
the Execution Time Data Storage Block Reservation remains in core at 
the end of program loading, the information transfer is core- to-core. 
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3^3.2.12 


Diagrams of Unprotected Core with a Data Storage Block Reservation 



K WORDS OF COMMAND SEQUENCE INFO 
WHERE K = N*96+M 


The above diagram is unprotected core prior to the Data Storage 
Block Reservation. 


LOADER 

LOADER TABLE 
WORD COUNT = M 

The above diagram is unprotected core after N*96 words have been 
transferred to mass storage. The odd sector is moved into the 
bottom end of load time core. 



ODD SECTOR 


LOADER 

\ 

l _ 1 


LOADER TABLE 

) - i 

3 + 

- - t _ _ 

PROGRAMS LOADED SUBSEQUENT TO DATA 
STORAGE RESERVATION 


,/ 

■ - • " | 

EXECUTION TIME DATA STORAGE BLOCK 
RESERVATION (WORD COUNT = T) 



ODD SECTOR (WORD COUNT = N) 


1 

J 

LOAD TIME DATA STORAGE BUFFER (WORD 
COUNT = T) 


The above diagram is unprotected core subsequent to the Data Storage 
Reservation. 
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3^. 3.2.13 Load Time and Execution Time Addresses 

Item 28.3*2.8 showed the relationship between the load time and 
execution time address counters. This is true so long as there is 
no later storage block reservation. In general, the relationship 
of a load time storage address to an execution time storage address 
for a program is concerned, the following is true: 

load time address = execution time address - word count on mass 

storage -F length of Load Time Data Storage Buffer. 


3S3.3 


Input to the Loader 


The Loader issues I/O requests to read formatted records in the 
Binary Mode. The records are not to exceed 120 characters of 
data in length. The binary records processed by the Loader will 
hereafter be referred to as relocatable binary input records. 

These are the type of records generated as binary output by the 
assembler. There are six types of relocatable binary input 
records (hereafter referred to as blocks.) Each block is identified 
by the 1st word (1st 2 data characters) of the record as follows: 


NAME OF BLOCK 


CONTENTS OF 1st WORD 
(HEX VALUES) 


NAM 

RBD 

BZS 

ENT 

EXT 

XFR 


$2050 

$4050 

$6050 

$8050 

$A050 

$C050 


Binary records not recognizable to the Loader will be regarded as 
illegal input and will cause the Loader Operation to be terminated. 
In addition to the relocatable binary input records, the Loader 
will process ASCII input. Since the Loader reads only in binary 
mode, the input records must have as the 1st character and 

must terminate with a carriage return. A space is accepted in 
place of a carriage return in the event the input device is a 
card reader. The two ASCII input blocks acceptable to the Loader 
are the HEX block which contains hex correction constants and 
the EOL block which indicates the end of Loader operation. They 
are identified by the 1st 3 characters in the block: 

NAME OF BLOCK IDENTIFICATION 


HEX 

EOL 

EOL 


*H 

*T carriage return 
*T space 
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Those ASCII records not recognizable to the Loader are regarded 
as Monitor Control Statements. Such a record will cause the 
Loading Operation to be interrupted. An exit is made to the 
monitor in order to process this statement. 

B 11 ! 3.4 Exit from the Loader 

Exit from the Loader to the Monitor is with an indirect return 
jump to the address in $EE. Immediately prior to exit from the 
Loader, the exit parameters are placed in the A, Q 6c I registers 
as illustrated below: 


EXIT FROM LOADER 


A 

Q __ 

I 

Reason for Termination 

Type of Loader Request 

XFRADR 

0 

MSWDCT 

EOL statement in input 

RBLOAD 




buffer 

SUBRLD 

PROGLD 

-0 

0 

MSWDCN 

EOL statement in input 
buffer 6c no legal trans- 
fer address 

RBLOAD 

XFRADR 

INPUT 

MSWDCT 

Control statement for 

RBLOAD 




monitor in input buffer 

SUBRLD 

PROGLD 

-0 

INPUT 

MSWDCT 

Control statement for 
monitor in input buffer 
6c no legal transfer 
address 

RBLOAD 

0 

XFRADR 

MSWDCT 

Load operation termi- 

RBLOAD 




nated due to error 

SUBRLD 




which is irrecoverable 

PROGLD 

0 

-0 

MSWDCT 

Load operation termi- 

RBLOAD 




nated due to irrecover- 

SUBRLD 




able error 6 c there is no 
legal XFER address 

PROGLD 

-0 

0 

-0 

Entry point table list 

MAPS 


MSWDCT 

XFRADR 

INPUT 

RBLOAD 

SUBRLD 

vRBLQAE L 

(-I D 


means word count on mass storage* 
means transfer address 

is name of 1st word address of relocatable binary input buffer 
means relocatable binary load request 
means library subroutine load request 
means program library load request 
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MAPS Means request for entry point table list out 

*If MSWDCT = mass storage word count is zero, the entire program is 
contained within available core as defined in item 28.3. 2.2. 

3 ^.^ OPERATION OF THE LOADER 

The Loader is divided into 24 separate subprograms. The subprograms 
of the Loader are all non-optional. Each of the 24 subprograms is 
required for the Loader to operate. The Loader is divided into 
subprograms for no reason other than to facilitate the eaxe of 
handling at assembly time. Each subprogram may be assembled 
independently of the others. Within the source language, no sub- 
program has either a COM pseudo or a DAT pseudo, therefore the Loader 
requires neither common nor data storage reservations. The 24 
relocatable binary programs produced by the assembler are linked 
together in the following way: 

Entrance to one subprogram from another is made with either a 
2 word jump instruction or a 2 word return jump instruction, either 
using the relative mode of addressing. Many subprograms of the Loader 
are coded as closed subroutines, each to be entered at a unique 
entry point location with a return jump instruction. Exit from 
a closed subroutine is made with a jump to the address placed in 
its entry point location by execution of the return jump instruction 
at the time it was entered. Other subprograms are coded as open 
ended routines. Many of these open ended routines have more than 
one entry point. Entrance to such an open ended routine at one of its 
declared entry point locations is made with a jump instruction. Exit 
from an open ended routine is made with a jump to a location external 
to another subprogram using a two word jump instruction and the rela- 
tive mode of addressing. Within the source language of the Loader, 
the entry point names declared by the ENT pseudo in subprogram X 
are declared as external names by the EXT* pseudos in any of the 
other subprograms which reference this name. Because of the EXT* 
pseudo, the relocatable binary code generated by the assembler for 
instruction with external names as addresses provides for the rela- 
tive mode of addressing. As the 24 subprograms are linked together 
into an absolute record at load time, the relative addressing feature 
is >a major factor in providing for a "run anywhere 11 capability for 
operation of the Loader. (The "run anywhere 1 ' feature of the Loader 
is more meaningfully discussed in item 28.5.2.) 

The order in which the subprograms of the Loader occur with respect 
to each other is optional with one exception. The subprogram whose 
name is LOAD (see item 28.5) must occur at the beginning of the 
Loader. This is the initialization module. Since entrance to 
the Loader from the monitor is made with a jump to its lowest (toward 
0) location, the initialization module must occur at the bottom 
end of the block of core containing the Loader. 
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3T.5 LOAD ROUTINE - INITIALIZATION 

The Load routine is the subprogram concerned with initialization. 
Initialization is performed at the beginning of every Loader 
Operation. Entry to the Loader from the monitor is made by a 
jump to its lowest (toward 0) core address. There are three 
sections of this subprogram concerned with initialization named 
PARTI, PART 2, and PART 3. 

31.5.1 PARTI 

The 1st instruction to be executed upon entry to the Loader is 
a return jump to the location whose label is PARTI. Prior to 
entering the Loader, the entrance parameters (see item 28.3.1) 
have been placed in the A&Q registers. 

The only function of PARTI is to record the entrance parameters 
in temporary storage locations: 

(A register) — > AINP 
(Q register) ^ QINP 

An exit from PARTI is made by using the 2 word jump instruction 
stored at the location PARTSW and PARTSW+1. The jump is made 
to the part of the initialization procedure. 

31.5.2 PART 2 

PART2 of initialization is performed only if the Loader is being 
used for the first time after it has been placed in core by the 
Job Processor. PART2 is entered from PARTI by the jump instruction 
at PARTSW and PARTSW+1. This jump instruction uses the relative 
mode of addressing. The 16 bit delta value coded into the second 
word of this instruction is equal to the value of the address 
expression 

PART 2 -PARTSW- 1 . 

At the completion of PART2, this 16 bit delta value will be replaced 
by the value for the expression 

PART 3 -PARTSW- 1. 

In this manner, PART2 of initialization will be performed only 
during the first Loader Operation after the Loader is placed in 
core. For subsequent Loader Operations, control passes immediately 
from PARTI to PART 3. 

The functions of PART2 are as follows: 
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1. To establish the relocation base for the Constant Table. 

2. To obtain and record the limits of unprotected core. 

3. To enter the entry point name from the Table of Presets 
into the Loader Table. 

4. To reset the address of the jump instruction at PARTSW such 
that PART 2 will never be entered for execution during 
subsequent Loader Operations. 

The Loader is a program with a "run anywhere” option. In other 
words, this program has the capability of being read as an 
absolute record, placed anywhere in memory and still being execu- 
table with little or no modification to the machine language of the 
Loader as it exists in the system library. 

In "run anywhere" programs of primary concern are those instructions 
which reference memory. There is no problem in the case of either 
a one word instruction or a two word instruction which uses the 
relative mode of addressing. There are no two word instructions 
using the absolute mode of addressing unless the address is set 
at some time during program execution. If it is necessary to use 
absolute addressing, the absolute value of a core location may be 
obtained at any time by use of a return jump instruction: 

RTJ* BUFADR 

BZS DIRBUF (96) 

LIBSEC NUM $FFFF , $FFFF 

BUFADR NUM $FFFF 

In the above sequence of code, the absolute value for the address 
"DIRBUF" will be placed in the location BUFADR upon execution of 
the return jump instruction. 

3^5.2. 1 Constant Table 

During Loader Operations, the memory index or I register contains 
the relocation base for the Constant Table. The label assigned 
to the 1st location to be occupied by the constant table is 
CONTAB. The relocation base for the constant table is equal to 
the value of the address expression 

"CONTAB- 1" . 

The manner in which this relocation base is obtained is similar 
to the procedure described in the last paragraph of item 28.5.2. 
During the PART2 procedure of initialization it is necessary to 
compute the absolute values of other address constants. Referring 
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to the index of the Constant Table in item 28.5.2.1.2, the 29th 
storage location is the starting location of the input area for 
storage of relocatable binary input blocks. The execution time 
value of this address is 29+(I). This address is placed in the 
location 117+(l). The value for the starting address of this 
input area +1 = 30+(I) is placed in the location 11 & +(I). Also 
the value for the starting address -3 = 28 +(I) is placed in the 
location 122 + (I). 

In addition to the above, the 23rd location of the constant table 
is set to the value of the starting address for the Loader. Upon 
entry to PARTI with a return jump (see item 28.5.1), the value = 
n L0AD+l n is placed in the location PARTI. Therefore, the location 
23+(I) is set to the value = (PARTl)-l. 

The 91st location of the Constant Table is reserved for the 
storage of the relocation base of the Constant Table. The name of 
this location is ISAV and it is declared as an entry point name by 
the LOAD subprogram. If at any time during a Loader Operation, 
the contents of the I register should be destroyed (as in the case of 
a status request), the original value of ''CONTAB-r* may be restored 
to it. In order to do this in a subprogram other than LOAD, it is 
necessary to declare ISAV as an external name in the other module. 

3^5.2. 1.1 Accessing Locations in the Constant Table 

Whenever some routine addresses a location in the constant table, it 
does so with the following type of instruction: 

OPC- n, I 
where : 



1. OPC represents a mnemonic for a memory reference instruction, 

2. n represents an ordinal position in the constant table 
(position 1 up to position 255), and 

3. I represents the memory index. 

It is necessary that many locations in the Constant Table wn«t be 
preset with specific values at the time the Loader is placed in 
core. Those locations in the Constant Table for which this does 
not apply are preset to a value of zero. 

External pseudos must be included in the source language for LOAD 
for those locations in the constant table preset to address cons- 
tants where these address constants refer to locations in other 
routines. An example is as follows: 
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SCAN is a closed subroutine but the entry to scan is in the constant 
table. The 145th to the 148th word in the constant table are set 
to the following code: 


word 145 

i 

4 

00 

word 146 

$FFFF 

word 147 

1 

8 

00 

word 147 

hhhh 


where hhhh is an increment for a two word jump instruction using 
the relative mode of addressing. The source language is as follows: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP+ 

($7FFF) 

RETURN FROM SCAN 


JMP 

SCAN 

JUMP TO SCAN 


EXT* 

SCAN 



where the name SCAN is an entry point name in some other routine. 
3^5.2. 1.2 Table of Contents of Constant Table 


ORDINAL 

NAME 

USE: 

i 

C0MBAS 

relocation base for common storage 
at execution time 

2 

DATBAS 

relocation base for data storage 
at execution time 

3 

PROBAS 

relocation base for program currently 
being loaded at execution time 

4 

C0MLIM 

highest address of common storage +1 
at execution time 

5 

DATLIM 

highest address of data storage +1 
at execution time 

6 

CSQLIM 

highest address of command sequence 
storage +1 at execution time 

7 

TABLIM 

lowest address (toward 0) of loader 
table 

8 

ENDSW 

=1 if last relocation byte in RBD or 
BZS block 
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ORDINAL 

NAME 

9 

NGRLSW 

10 

INPWRD 

11 

INPREL 

12 

XFRADR 

13 

ENTPNT 

14 

LINK 

15 

INPCTR 

16 

TABSCTR 

17 

END IN P 

18 

BLANKS 

19-21 

SYMSTR 

22 

SCANSW 

23 

BASE 

24 

WRDCNT 

25 

COUNT 1 

26 

BZSSW 

27 

BLKCNT 

28 

SW6 

29-88 

INPUT 

89 

ASAV 

90 

QSAV 

91 

ISAV 


c 


USE: 

negative address relocation switch 

contains end of command sequence storage 

contains rel. flag for word of sequence 
storage in RBD and BZS block 

contains transfer address of name 
from an XFR block 

contains address associated with 
name in EXT or ENT block 

contains address associated with name 
in loader table 

used to address core location of 
command sequence storage at load time 

tally of loader table entries 

highest address in load time core 
for command sequence storage 

ASCII code for spaces = $2020 

used by SCAN to record characters 
extracted from field containing ASCII 
input 

used by SCAN to determine type of 
ASCII field 

relocation base on which it is to 
operate of loader 

address or character reference counter 
counter 

used by subroutines common to RBDPRO & 
BZS PRO ; =1 for BZS block; =0 for RBD 
block 

block counter 
index counter 
input buffer 

temporary storage for A register 

temporary storage for Q register 

storage location for constant table 
relocation base 
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92-94 

XFRNAM 

storage of 6 character XFR name 

95-98 

NAME 

secondary storage for field after 
SCAN operation 

99-102 

TABSCH 

Loader Table search routine entrance 

103-106 

TAB ST R 

Loader Table storage routine entrance 

107-110 

CHPU 

character pickup routine 

111-112 

BINASC 

Storage of ASCII code for number 
conversion 

113-116 

PRINT3 

error output routine (resume operation) 

117 

INPXCO 

contains address constant = ,! INPUT n or 
29+( I) 

118 

INPXC1 

contains address constant = n INPUT ,f or 
30+(I) 

119-121 

PRINT2 

error output routine (Stop Operation) 

122 

INDXC3 

contains address constant = M INPUT-3 n 
or 26-KI) 

123-124 

NXTINP 

jump instruction to read next input 
block 

125-140 

HEX CODES 

ASCII codes for hex digits 

141-144 

ADJOVF 

routine to perform address arithmetic 
(15 bits) 

145-148 

SCAN 

SCAN routine entrance 

149-152 

CONVRT 

binary to ASCII conversion routine 
entrance 

153-156 

PRINT 4 

print out routine (prints characters 
name and 4 digit hex address) 

157-160 

PRINT5 

print out routine (prints 6 character 
names) 

161 

A INPUT 

contains A register upon entry to loader 

162 

QINPUT 

contains Q register upon entry to loader 

163-166 

LINK1 

entrance to rout ine which patches in 
entry to loader 

167-170 

LINK2 

entrance to routine which ties together 
2 strings of link addresses 

171 

PRODTF 

size of absolute record placed by 
loader on mass storage; the value in 


PRODIF is equal to the difference of 
( PROBAS )- ( PROSTR) 



W 
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172 

START 

start address for Mass Storage I/O 

173-174 

SECTNO 

starting sector for mass storage I/O 
requests 

175-176 

INPLUN 

logical unit number for input (L 6c A 
parameters for calling sequence) 

177 

DATLEN 

length of Data Storage block reservation 

178 

DATRES 

contains starting address in Load Time 
Core for Data Storabe block reservation 

179 

LOWCOR 

Contains the starting address for Load 


Time Gore 

(LOWCOR) = ($F7)+1 if (DATBAS) =0 
(LOWCOR) = (DATCTR) if (DATBAS) =£0 


180 

DATSTR 

contains the starting address for the 
Load Time Data Storage Buffer 

181 

PROLIM 

contains the address of the last word 
in the odd sector which occupies the 
lower 1-95 words of Load Time Core 

182 

DATCTR 

contains the highest (toward $7FFF) 
address reserved for the Load Time 
Data Storage Buffer +1 

183 

CSQCTR 

contains the highest (toward $7FFF) 
address reserved for command sequence 
storage at load time +1 

184 

DATDIF 

contains a value equal to the difference 
(DATBAS) - (DATSTR) 

185 

PR0STR 

contains the relocation base for storage 
of a relocatable binary program in Load 
Time Core 

186 

DIFCON 

temporary storage 

187-190 

C0REXT 

routine which writes absolute records 
produced from rel. binary input onto 
mass storage 

191 

LWRLIM 

lowest unprotected location -1 

192 

UPRLIM 

highest unprotected location +1 

193 

’’INPUT" 

start address for input device 1/0 
operation 

194-195 

PROSEC 

starting sector number if input device 
is mass storage 
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196 

AHOLD 

temporary storage for A register 

197 

QH0LD 

temporary storage for Q register 

198 

SECTOR 

n SECT0R n = 96 1q 

199-202 

DPRADD 

entrance to routine to compute absolute 
value of starting sector for mass 
storage 1/0 requests 

203 

DSECN0 

relative value for starting number for 
storage of Load Time Data Storage Buffer 
in the scratch area of mass storage 

204 

TABS NO 

relative value for starting sector 
number for storage of Loader Table in 
the scratch area of mass storage 

205 

E4SAVE 

contains the relative value of the last 
sector number for Load-and-Go input. 


Many of the constants in the Constant Table may be used by a subpro- 
gram in a manner other than that indicated by the Table of Contents* 
If so, an indication will be made in the maintenance documentation of 
the subprogram. 

3 ^ 5*2.2 Core Request for Limits of Unprotected Core 

The A register and the Q register are set to zero, and a core request 
is made in order to obtain the limits of unprotected core. Upon 
return to the Loader following completion of the request, the A 
register contains the upper limit and the Q the lower limit of 
unprotected core. 

The upper limit contained in A is recorded at the locations in 
the Constant Table UPRLIM and COMLIM. The lower limit is read at 
LWRLIM AND LOWCOR. 

3 ^ 5 . 2.3 Processing Table of Presets 

The entry point names and addresses in the Tab le-of-Pr eset s are 
entered into the Loader Table as entry point names. Item 28.5.2.3.1 
is a description of the Loader Table while 28.5.2.3.2 is a descrip- 
tion of the Table of Presets. 


3<3 5. 2. 3.1 Loader Table 


The Loader Table comprises a list of entry points and externals 
processed during a sequence of Loader Requests prior to job 
execution. The Loader Table begins immediately below the base 
address of the Loader and is expanded backward (toward 0) in 
memory during a loading operation. 
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A single entry in the Loader consists of 5 words. Words 1, 2 and 3 
consist of the ASCII code for a name of up to 6 alphanumeric char- 
acters. If fewer than six characters are used, the unused character 
positions are filled with the ASCII code for spaces. If the entry 
contains an entry point name, word 4 holds the associated entry 
point address. (Word 4 is positive in value.) 

If the entry contains an external name, word 4 contains the one ! s 
complement for the associated link address. 

Word 5 of the Loader Table entry serves as a pointer • If a name 
appears in more than one entry in the Loader Table, word 5 of the 
most recent entry contains the address which points to word 4 of 
the previous entry. The 1st entry to be made in the Loader Talbe 
for this name contains a n -0 fl in word 5. If a name appears in 
only one entry of the Loader Table, word 5 of this entry is set 
to a "-0". 

The TABSTR routine (see item 28.8.6) is used for the purpose 
of making Loader Table entries. 

3 c i5.2.3.2 Table of Presets 

The Table-of-Presets is located in protected core. The starting 
address for the Table-of-Presets is recorded at the communication 
region address of $F2 while $F1 contains the table length. 

The format of an entry in the Table of Presets contains the entry 
point name and address for a program in the core resident portion 
of the operation system. 

When an entry point name from the Table of Presets is entered into 
the Loader Table, - 

1. W0RD5 of the Loader Table entry is set to -0, 

2. The sign bit of W0RD2 of the entry is set to a 1. 

If a program is loaded that uses an external name to match the name 
from the Table-of-Presets, the sign bit of W0RD2 for the matching 
Loader Table entry is reset to zero. If the entry point name from 
the Table-of-Presets is not referenced as an external by any of the 
programs loaded, the sign bit remains set at the completion of 
loading. This name will not appear on the list entry points produced 
during a memory map operation. (See item 28.6.10.) 

3^5.3 PART 3 

PART3 consists of all initialization required for each Loader re- 
quest made prior to '^b execution. One such operation will be to 
transfer (AINP) and ^QINP) to locations in the respective constant 
table AINPUT and Q INPUT . Once placed in the constant table, then 
this information will be more easily accessed by other routines 
comprising the loader. Another is a CORE REQUEST in which the Loader 
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asks for the limits of core available to it for storage of relocatable 
binary inputs. The lower address in the Q register will be recorded 
as the execution time relocation base for the next program to be loaded 
in the location PROBAS 6c CSQLIM. The constants PROSTR and CSQCTR 
are set to the value for the load time relocation base of the next 
program to be loaded. The value of this relocation base is equal 
to - 

execution time relocation base + length of Data Block Reservation - 
word count on mass storage 

or 


3 ^ 5.4 


3 ^ 5.6 


3 ^ 6 


(PROBAS) + (DATLEN) - (PRODIF) PROSTR 

The contents of the location $E4 is the relative value for the 
last sector number in the scratch area containing the load-and-go 
input. PART3 records this number at the location $E4SAVE. If 
there is no load-and-go in the scratch area, ($E4) =1. In this 
case PART3 will set $E4 to zero, (Refer to item 28.8.10 and 28.8.11 
for the significance of the number in $E4 and relative values for 
sector numbers.) 

Subroutines Used by and External to Load 

TABSTR is used for making Loader Table Entries. (Refer to item 
28.8.6.) 

Exit from LOAD 


Exit from LOAD is made with the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


EXT 

BRANCH 



JMP 

BRANCH 



BRANCH 

The bits 0-3 of the location AINPUT determines the branching which 
occurs. According to the type of operation requested by the program 
calling the Loader, branching will occur to one of the four locations 
labeled as follows: 

RBLOAD (See item 28.6.4) 

SBLOAD (See item 28.6.6) 

PROGLD (See item 28.6.8) 

MAPS (See item 28.6.10) 

ADRPR0 -LSee item afi.T.flJ 
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3^6.1 Constant Table Storage Referenced by BRANCH 


NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

A INPUT 161 

ASAV 89 

BINASC 111 

BLANKS 18 

BLKCTR 27 

COMBAS 1 

COMLIM 4 

CONVRT 150 

COUNT 1 25 

CSQLIM 6 

DATBAS 2 

DATCTR 182 

DATLEN 177 

DATLIM 5 

DATRES 178 

DAT ST R 180 

DPRADD 200 

E4SAVE 205 

ENDINP 17 

ENTPNT 13 

INPCTR 15 

INPREL 11 

INPUT 29 

INPXCO 117 

INPXC1 118 

INPLUN 175 

LINBUF 29 

- same storage position as INPUT 
LINK 14 

LOWCOR 179 

LWRLIM 191 

PRINT 3 114 

PRINT4 154 

PRINT 5 158 

PROD IF 171 

PROSEC 104 

Q INPUT 162 

QSAV 90 

SCAN 146 

SCANSW 22 

SECT NO 173 

SECTOR 198 

SW6 28 

SYMSTR 19 

TABCTR 16 

TABLIM 7 

TABSCH 100 

TABSTR 104 

WRDCNT 24 

XFRNAM 92 
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3 C 16#2 Communication Region Constants Used by BRANCH 

CONSTANT LOCATION 

1. $7FFF MASK1 = $42 

2. ordinal for mass storage device $B3 
containing scratch area 

3. number of 1st sector in scratch $C0 and $C1 
area on mass storage 

4. ordinal for mass storage $C2 

device containing Program 
Library and Program Library 
Directory 

5. sector number for beginning $C3 and $C4 

of Program Library Directory 

on mass storage unit containing 
Program Library 

6. Sector number for end of $E4 

load-and-go in scratch area 

on mass storage 

7. address for return to monitor $EE 

8. entry to operating system $F4 

for making monitor requests 

9. ordinal for standard input $F9 

device for system 

3«=}6.3 Entrance to BRANCH 

The BRANCH routine is entered directly from PART3 of the LOAD 
routine. The BRANCH is entered by the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP 

BRANCH 



where the name BRANCH is declared as an entry point in the BRANCH 
routine and as an external in the LOAD routine. 


''As 


O' 
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3*36.4 RBL0AD - Relocatable Binary Loading 

The sequence of code for this branch begins at the location whose 
label is RBL0AD. The Loader selects the input device for the Reloca- 
table Binary Load Operation according to the information in bits 
4-15 of the location in the constant table. The name of this location 
is AINPUT. The Loader will do one of the three steps below in order 
to select an input device: 

1. If bit 15 of AINPUT is a 1, bits 4-14 of AINPUT are ignored 
and - 

a) the address M $F9 n is placed in INPLUN, and 

b) the location INPLUN+1 is set to a 2. 

The input device selected in this case is the standard input 
medium for the system. The location $F9 contains the ordinal 
for this device. 

2. If bit 15 of AINPUT is a 0 and bits 4-14 = ($B3) then - 

a) the address ,! $B3 H is placed in INPLUN, and 

b) the location INPLUN+1 is set to a 2. 

The input device selected in this case is the scratch unit 
for the system. The location $B3 contains the ordinal for 
this device. 

3. If bit 15 of AINPUT is a 0 and ($B3) f bits 4-14 of AINPUT, 
bits 4-14 of AINPUT contain the ordinal for the input device 
such that - 

a) bits 4-14 of AINPUT are recorded in bits 0-10 of INPLUN, 
and 

b) the location INPLUN+1 is set to 0. 

The locations INPLUN and INPLUN+1 are located in the constant table. 
The contents of INPLUN and INPLUN+1 become the *’L" and ,f A n parameters 
to be inserted into a parameter list for the read requests made by 
the IDRIV subroutine. (Refer to item 28.7.1.) For information con- 
cerning parameter lists in 1/0 request, refer to item 6.4 in the 
Operating System ERS. 

If the input device selected by RBL0AD is the mass storage device 
containing the scratch area, the locations PROSEC and PROSEC+1 
are set to the sector number for the 1st sector in the scratch area. 

If the input device is a mass storage unit, it is because the Loader 
Operation involves load-and-go input and the 1st sector in the scratch 
area is the start of the programs to be loaded. The locations 
PROSEC and PR0SEC+1 are the 193rd and 194th locations of the constant 
table. Bits 0-14 of PR0SEC contain the most significant half and 
bits 0-14 of PR0SEC+1 the least significant half of the starting 
sector number. If the input device is not a mass storage unit these 
two locations contain zeros. 
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Next a return jump is made to the beginning of the routine which 
performs the actual loading operation* The name of this routine is 
LOADER. (See item 29.1.) The name LOADER is declared as an entry 
point within the LOADER routine and as an external in the BRANCH 
routine. A return to the BRANCH routine from LOADER will be made when 
one of the following occurs : 

1. An EOL input block had been read resulting in the termination 
of the Loading Operation. Upon the return to BRANCH - 

(A reg.) = -0 

(Q reg.) = 0 

2. An operating system control statement has been read re- 
sulting in the termination of the Loading Operation. Upon 
return to BRANCH - 

(A reg.) = -0 

(Q reg.) = 1st word address for storage of the control 
statement. 

3. An unrecoverable error condition has occurred. Upon return 
to BRANCH - 

(A reg. ) = 0 

(Q reg. ) = -0 

Upon return to BRANCH, these values are recorded in the 
constant table as follows: 

(A) y A IN PUT 

(Q) y Q IN PUT 

Exit from RBLOAD 

A return jump is made to the LIMSET routine to record the new temporary 
limits of core. (See item 28.6.12.1.) Another return jump is made to 
the GETADR subroutine to obtain the transfer address resulting from 
this loading operation. (See item 28.6.12.2.) 

In addition, the following occurs upon exit from RBLOAD: 

1. The location SEE contains the address for returning from 
the Loader to the monitor. This address is recorded in the 
second word of a 2 word return jump instruction using abso- 
lute addressing. The label assigned to the 1st of the 2 
locations containing this instruction is LDXIT1. 

2. If the Loading Operation did not involve Load-and-Go input, 
the location $E4 contains a zero. If ($E4) = 0, its original 
value contained in E4SAVE is restored to it. 

3. If (AINPUT) ^ 0, the Loader Operation was not terminated 
due to unrecoverable errors. In this case the following 
values are placed in A, Q & I: 


'O' 
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(XFRADR) — > A 

(QINPUT) > Q 

(PROD IF ) » I 


where 

a) (XFRADR) = core location for legal transfer address of 

program; = -0 if no legal transfer address is 
indicated* 

b) (QINPUT) = 0 if Loader Operation terminated due to EOL input 

block or = core address for storage of monitor 
control statement if operation terminated by 
the occurrance of such a statement in the Loader 
input. 

c) (PR0DIF) = word length of command sequence placed on mass 

storage during Loading Operation. This word 
count is 0 if the space required for the pro- 
grams read in by the Loader does not exceed the 
capacity of Load Time Core. 

In the event the Loader Operation was terminated due to an unrecover- 
able error, (AINPUT) =0. The A, Q & I registers will be set to 
the following values: 

0 — » A 

(XFRADR) — ^ Q 
(PRODIF ) > I 

A return jump is made to the monitor from LDXIT1. 

3 ^ 6.6 SBLOAD - Subroutine Loading from Program Library 

The sequence of code for this branch begins at the location whose name 
is SBLOAD. The input device for this operation is the mass storage 
unit containing the Program Library. The sequence of events are as 
follows: 

1. Make initial check of Loader Table for entries containing 
unpatched externals. (An unpatched external is an external 
name for which no program has been read on containing an 
entry point name to match.) 

2. A search is made of the Program Library Directory for a name 
to match each unpatched external in the Loader Table. For 
each matching name encountered in the Program Library Dir- 
ectory, the corresponding program is loaded from the Program 
Library. 

3. At the completion of step 2, a second search is made of the 
Loader Table for entries with unpatched externals. An error 


CA 1 38-1 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
Arden Hills Development DIVISION 


MAR 5 1371 


DOCUMENT CLASS. 
PRODUCT NAME — 


IMS 


1700 OPERATING SYSTEM 


PAGE NO.. 


3135 . 


PRODUCT MODEL NO. 


E0Db"3.O 


MACHINE SERIES. 


1700 


condition exists if any unprotected externals remain 
in the Loader Table. The appropriate error in- 
dication is printed followed by a list of the un- 
patched externals. This information is printed 
on the list output medium. 

M. At the completion of Step 3 t the operator has the 

option to intervene at the console. He may instruct 
the Loader to complete the operation and prepare 
for job execution! to look up any unpatched exter- 
nals in the core resident directory! or to termin- 
ate the load and suppress job execution. 

If the Loader is to look up in the core resident 
directory! it goes back to step 3 with this excep- 
tion: instead of searching the Program Library 

Directory! the Loader searches the core resident 
directory for entry points. 

If the Loader is to complete the operation! proceed 
to step 5. 

5. The Loader sets the new limits of core as a result 
of the Loader Operation. 

b. If no data has been declared at any time during a 
Loader Operation! proceed to step b. If data had 
been declared a transfer of i nformation occurs as 
follows: The contents of the Load Time Data Storage 

Buffer is transferred to the area set aside as the 
Execution Time Data Storage Block Reservation. 

7. The Loader obtains the transfer aedress with which 
to enter the program for execution! and returns to 
the monitor. 


n.b.b.l Checking Loader Table for Unpatched Externals 

Checking Loader Table entries for unpatched externals is 
accomplished with a program loop. The sequence of code 
for this loop begins at the address assigned the label 
TABCHK. Within this loop there are two word jump in- 
structions using the relative mode of addressing. The 
delta values for the second word of either jump instruc- 
tion are placed there during program execution. 
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Located at the addresses SU5 and SU5+1 is one of the 
two jump instructions. The execution of this instruction 
is the manner in which an exit is made from this loop. 
With respect to step 3 in item Sfl.b.tn this instruction 
operates as follows: 

1. A jump will be made to SUSAt if no unpatched ex- 
ternals occur during a second check of the Loader 
Table. This may be regarded as the ^normal exit* 
from the loop which checks for unpatched externals 
in the Loader Table. 

3. A jump will be made to S LJS B if at least one un- 
patched external occurs during a second Loader 
Table check. This may be regarded as the error 
exit from the loop. 

Located at the addresses SUM and SU4+1 is the other 
of the two jump instructions. If there are no un- 
patched externals in the Loader Tablen this in- 
struction is never executed. 
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The execution of the jump instruction at SW4 and SW4T-1 occurs only 
when an unpatched external is encountered during a search of the 
Loader Table: 

1* With respect to step 1 of item 28.6.6, a jump will be made 

to the location SUBRLD upon the 1st occurrance of an unpatched 
external during an initial Loader Table check. 

2. With respect to step 3 of item 28.6.6, a jump will be made 
to the location SW4A upon the 1st occurrance of an unpatched 
external during the second Loader Table check. 

3. With respect to step 3 of item 28.6.6, a jump will be made 
to the location SW4B for each occurrance of an unpatched 
external during a Loader Table check subsequent to the 1st 
occurrance. 

In the case of the jump instruction at SW4 and SW4+1, a jump will 
be made to the location SW4A if the location SW4+1 contains a 16 
bit delta equal to the value of the address expression: 

SW4A - SW4 -1. 

Henceforth, this will be referred to as setting the switch SW4 to 
the SW4A position” or ’’setting SW4 to SW4A ” . This will be indicated 
symbolically as - 

”SW4A >SW4 

In general - 


”X” ^ Y 

means set the location Y to the value X' or set the switch Y to the 
X position. 

When making the Loader Table check, the entries are examined beginning 
with the 1st entry and working downward through core. (The 1st entry 
in the Loader Table occupies the five words immediately preceding the 
base address of the Loader.) 

The location TABCTR contains the number of Loader Table entries. The 
location SW6 is set to the word length of the Loader Table: 

(TABCTR) * 5 > SW6 

The location TABLIM contains the base address of the Loader Table. 

Each time the TABCHK loop looks at a Loader Table entry, it reduces 
the Index counter SW6 by 5. After the TABCHK loop checks the last 
entry in the Loader Table, SW6 is reduced to a negative value. There- 
fore, the test for completion is - 
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"if (SW6) <0, execute jump at SW5". 

The TABCHK loop looks at the fourth word of the Loader Table entry 
to determine if it is an unpatched external. The test for an un- 
patched external is: 

"if ((TABLIM) + (SW6) + 3) <0, execute jump at SW4". 

3^6.6. 2 Initial Loader Table Check 

Prior to starting the initial Loader Table check for unpatched 
externals, the following occurs: 

"SUBRLD" > SW4 

”SW5A" ? SW5 

Upon the 1st occurrence of an unpatched external, a jump is made at 
SW4 to the address SUBRLD. Otherwise a jump is made at SW5 
to SW5A. (See item 28.6.6.6.) 

3^6.6. 3 Searching Program Library Directory for Unpatched Externals 

The Program Library Directory is recorded on the mass storage unit 
containing the Program Library. The Program Library is divided 
into 96 word segments (96 words per sector) as follows: 

1. The last 2 words (95th and 96th words) of each sector in 

the directory is a link which points to the next sector 
in the directory. (The directory does not necessarily 
occupy consecutive sectors on mass storage.) 

2. The 94th word of a sector in the directory indicates the 

number of unused words in the 96 word segment if this is 

the last 96 word segment in the directory. This number 
will be an integer multiple of 5 (5 words in a directory 
entry) such that - 

0 £ 5 n c 85, 

where n=0, 1, 2, ... 17. 

3. The 91st, 92nd and 93rd locations in the sector are not 
used. 

4. A 5 word directory entry contains the following information: 
a* W0RD1 to W0RD3. 

The six character name for this entry is stored 2 ASCII 
characters to a word. If (W0RD1) = 0, the entry has 
been deleted. 

b. W0RD4 & WORD 5 

If the entry contains an entry point name for a pro- 
gram in the library, the last two words of the entry 
contain the starting sector number in the library for 


CA 1 38-1 



MAR 5 1971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV ® SOFTWARE DOCUMENT 


DOCUMENT CLASS IMS 

PRODUCT NAME 17QD QPERA1.ING_._S.YS im_6aZJJL_^ 

PRODUCT NO. EQQ. fr 1 3 VERSION 1^.0 MACH i NE SERIES 1700 


PAGE NO— 3^3 ^ 



this program® (This is the sector number where the 
NAM block for the relocatable binary input is stored.) 

If the entry contains a file name, the 4th word of 
the entry contains the one's complement of the file in 
sectors, and the 5th word contains the starting sector 
for the file in the library. This sector number is 
15 bits in length whereas, sector numbers for programs 
are 30 bits in length, 15 bits per word of storage. 

A search is made starting at the beginning of the pro- 
gram library directory progressing toward the end. 

The locations in the communication region $C3 and $C4 
contain the starting sector for the Program Library 
Directory. 

There is a maximum of 18 entries per sector. 

% 

The number in locations $C3 and $C4 is recorded in SECTNO and SECTNO-H. 
A return jump is made to the MDRIV routine (see item 28.7.3) to 
read the 1st 96 word segment on the Program Library Directory. One 
sector is read into the block of locations starting DIRBUF and 
terminating at DIRBUF+95 = The location INPCTR is set to the 1st 
word address of the 96 word input area: 

"DIRBUF " — > INPCTR 

Immediately upon return from MDRIV, the link to the next 96 word 
segment of the directory is recorded: 

(DIRBUF+94) > LIBSEC 

( DIRBUF+9 5 ) > LIBSEC ^ 1 

The Loader searches forward through the sector looking for an entry 
such that 

1) ((INPCTR)) f 0 

meaning that the Directory entry is not deleted, and 

2) ((INPCTRH3) >0, 

meaning that the directory entry is not a file name. Each time one 
of these conditions is not set, the address counter for the input 
area is increased: 

(INPCTR) - 5 — > INPCTR 

The last entry in the sector has been encountered if - 
n DIRBUF+90" - ( INPCTR )=( DIRBUF+9 3) 


v J 
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where : 

1. n DIRBUF+90 M = address following last entry in sector. 

2. (INPCTR) = 1st word address of next sector entry. 

3. (DIRBUF+93) = number of unused core locations in sector. 

When the last entry in DIRBUF has been encountered, a test is made 

to determine if this is not the last 96 word segment in the direc- 
tory. It is not the last segment if either 

(LIBSEC) + 0 


or 


(LIBSEC+1) + 0 

The next segment in the directory is read and the entire procedure 
repeated by recording the sector number for the next 96 word direc- 
tory segment - 

(LIBSEC) ^ SECT NO 

( LIBSEC+1 ) ^ SECTNO+1 

and reading the next directory segment using MDRIV. 

If the last segment of the directory has been encountered such that 
(LIBSEC) = (LIBSEC+1) = 0, 

the end of the directory has been reached. Once the end of the 
directory has been reached, a jump is made to TABCHK for a second 
check of the Loader Table. (See item 28.6.6.4.) 

If in the process of searching through the Program Library Directory, 
an entry is encountered such that - 

((INPCTR)) ± o 


and 

( ( INPCTR)+3) > 0, 

a search is made of the Loader Table using the TABSCH routine. (See 
item 28.8.5.) If upon return from TABSCH, (SW6) <0, it means no 
entry with a name to match has been found in the Loader Table. If, 
upon return from TABSCH, ( (TABLIM)i-(SW6)+3) > 0, it means that an 
entry with a matching name has been found in the Loader Table, but 
this entry has already been defined as an entry point name. In 
either case the address counter INPCTR is increased to look at 
the next entry in the directory - 

(INPCTR)+5 > INPCTR. 
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Ifi as a result of a Loader Table search! an entry has 
been found such that - 

{SliJb} > 0 


and 


{{TABLIM}+{SliJb}+3> ^ 0, 

it means that there exists an external name in the 
Loader Table which references some entry point name 
contained in a library routine. 

This routine must be loaded from the Program Library 
in order to satisfy this external name. {In the 
process of loading a routine to satisfy one external -. 
it is possible that many others will have been satis- 
fied as well.} In order to load this routine from the 
Program Library! the starting sector number is taken 
from the directory entry and recorded: 

{{INPCTRI+3I > PR0SEC 

{{INPCTR3- + 4} » PR0SEC + 1 

A return jump is made to LOADER {see item 51. 1> in order 
to load this program. 

Upon return from Loader-, the exit parameters in the A 
and (2 registers are recorded in AINPUT and (3INPUT 
respectively. Each time a program is loaded from the 
Program Library-, it is necessary to repeat the entire 
procedure of searching the Program Library Directory 
trying to match entry point names in the directory 
with any external names that may yet remain in the 
Loader Table. 

This procedure is not complete until a complete pass 
has been made to the end of the Program Library 
Directory-, and-, in the process of so doing-, no external 
names have been encountered in the Loader to match any 
entry point name in the directory. At this time any 
external names remaining in the Loader Table are regarded 
as unpatched externals. They will be detected during a 
second search of the Loader Table, {see item Bfi. (□.(□. 5.} 

31.b.fc>.4 Searching Core Resident Directory for Unpatched Externals 

The Core Resident Entry Point {CREP> Directory is re- 
corded on the mass storage unit when the system is 
initialized-, in the same format as the Program Library 
Directory. The CREP directory has an entry for each 


,r >• 
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symbol declared an entry point when the core resident load 
is completed during system initialization. The last two 
words of each entry in the directory point to the same 
mass storage sector number. The CREP program begins at 
this sector. 

The CREP program consists of a dummy NAM block! as many 
ENT blocks as necessary to accommodate all core resident 
entry points! and a dummy XFR block. Each ENT block con- 
tains up to 14 entry point names t and the absolute 
address of each name. 

Neither the CREP directory nor CREP program are modified 
at any time! unlessi of course! the system is rebuilt 
with the initializer. The starting sector address of 
the CREP directory is saved in the two words just pre- 
ceedi ng the System Library Directory. When the CREP 
directory is to be searched! this initial directory 
address is used instead of the first sector address of 
the Program Library Directory! but it is then processed 
as though it were a search of the Program Library 
Directory. In subroutine BRANCH this is accomplished 
by : 

-C-C$EB>-3> + l — » LIBSEC 
-C-C$EB:H3>+3 — * LIBSEC+1 
3 — > AINPUT 

and processing the routine SUBRLD normally. 

S'l.b.b.S Loader Table Check Subsequent to Loading Subroutines 

A second check is made on the Loader Table to look for 
any remaining unpatched externals. Prior to beginning 
the second Loader Table check the switches SW4 and SUI5 
are set as follows: 

*SU4A* — » SU4 

*SbJSA* — } SliJS 
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If no unpatched externals occur during the second Loader Table 
check, a jump is at SW5 to SW5A. (See item 28.6.7.) However, 
upon the occurrence of the first unpatched external, a jump is 
made at SW4 to SW4A. At SW4A, the switches SW4 and SW5 are reset 
as follows: 


SW4B 

SW5B 


SW4 

SW5 


Next, the error indication M E10 n is printed using the PRINT3 
subroutine. (See item 28.8.7.1.) 

The next instruction to be executed is located at the address 
SW4B. This is a return jump to the PRINT5 subroutine (see item 
28.7.7.4 ) to print the 6 character name of the unpatched external. 
Prior to entry to PRINT5, the location INPCTR must be set to the 
1st word address of the Loader Table entry containing the unpatched 
external: 


(INPCTR) = (TABLIM) 4- (SW6) 

The location INPCTR is set to the 1st word address of each Loader 
Table entry as this entry is being checked for an unpatched external. 

Following the printout of this name, a jump is made to the location 
TCHKJ1 where the check for additional unpatched externals continues. 
Upon the occurrence of all subsequent unpatched externals a jump 
is made at SW4 to the location SW4B where only the external names (and 
no error indication) is printed. Upon the completion of the 2nd 
Loader Table check, a jump is made at SW5 to the location SW5B. 

At SW5B an indication of M E M is printed on the typewriter using 
the CDRIV subroutine. (See item 28.7.2.) 

When the break light lights up on the typewriter keyboard, the 
operator may enter one of two statements at the typewriter: 

1. The statement ”*T carriage return” instructs the Loader 
to terminate the Loader operation and abandon job exe- 
cution. A zero is placed in the location AINPUT, and a 
jump is made to RBLXIT. At the location RBLXIT is the 
beginning of the process for exit from the Loader for a 
relocatable binary load operation. (See item 28.6.5.) 

2. The statement ”* carriage return” instructs the Loader to 
continue with the Loader Operation and prepare for job 
execution. A jump is made to location SW5A. (See item 
28.6.7.) 

316.7 Exit from SBLOAD 

A jump is made to the LIMSET subroutine (see item 28.6.12.1) to 
record the new temporary limits of core. 
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Next a test is made to see if data has been declared by some pro- 
gram read in during the Loader Operation. If (DATBAS) ^ 0, there 
exists a data block within the command sequence. The contents of 
the Load Time Data Storage buffer must be transferred to the space 
in the command sequence of the programs read in reserved as the 
Execution Time Data Storage Block Reservation. This is done in 
one of two ways: 

1. If (PROD IF) = 0, the entire command sequence is contained 

within the limits of Load Time Core as follows: 

a. (DATBAS) = Beginning of Data during execution of Pro- 
grams being loaded. 

b. (DATRES) = Beginning of Execution Time Data Storage 
Block Reservation in Load Time Core. 

c. (DATSTR) = Beginning of Load Time Data Storage Buffer. 

d. (DATLEN) = Length of Data Block. 

e. (LOWCOR )+l=Beg inning of Command Sequence in Load Time 
Core. 

f. (CSQCTR) = Last address +1 of Command Sequence in Load 
Time Core. 

The contents of the Load Time Data Storabe Buffer is moved (last 
word first) to the Execution Time Data Storage Block Reservation as 
follows: 

((DATSTR)- (DATLEN)) > ( DATRES )+( DATLEN) 

(( DAT STR)+( DATLEN)-!) (DATRES )+( DATLEN)- 1 


( (DATSTR)- 4 -!) > ( DATRES)-! 

((DATSTR)) (DATRES) 

Following this information transfer, each word in the command sequence 
is moved from its Load Time core location to its execution time 


core location: 


(( LOWCOR )+l) — 

> (LWRLIM) a 1 

((LOWCOR)- 2) 

> (LWRLIM)+2 

( ( ENDINP)- 1 ) 

> ( ENDINP )-( DATLEN)-! 


where (LOWCOR) ( LWRLIM)H-( DATLEN) as of the time a data storage 
reservation is set aside by NAMPRO. (See item 28.9.2.) ENDINP 
contains the highest address in Load Time Core used for storage of 
command sequence input. (See item 28.9.5.4.) 
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2. If (PRODIF) 0, the command sequence of the programs 
read in by the Loader is contained in the scratch area 
on mass storage. It is necessary to (1) locate the sectors 
containing the Execution Time Data Storage Block reser- 
vation, (2) read them into core, (3) transfer into them 
the contents of the Load Time Data Storage Buffer, and 
(4) write them back out onto mass storage. 

In order to perform this operation, it is necessary to 
compute the value for the starting sector number using 
the DPRADD routine. (See item 28- 8 • 11.) In order to read 
and write using the mass storage unit, it is necessary to 
use the MDRIV routine. (See item 28.7.3.) 

At this time, it is necessary to obtain the transfer address to be 
used for entry into the program for execution. A return jump is 
made to the routine GETADR (see item 28.6.12.2) to pick up the 
transfer address. Upon return from GETADR, the location INPCTR 
contains the address ’’XFRNAM" which is the 1st of 3 locations con- 
taining the ASCII code for the 6 character name. The location 
XFRADR is the location containing the transfer address. If upon 
return from GETADR, (XFRADR) = -0, it is because no transfer name 

had occurred as a result of a Loader Operation or the transfer name f ^ 

in the last XFR block read by the Loader is an illegal one. A 4.^ 

zero is stored in AINPUT. An error indication of r, E13 p will be 
printed using the PRINT3 subroutine. The transfer name will be 
printed following this error indication using the PRINT5 routine. 

In the event no transfer name was recorded at XFRNAM, 6 spaces will 
be printed on the line following the error indication. 

The remainder of the exit procedure is as follows: 

1. The location $EE contains the address for returning from the 
Loader to the monitor. This address is recorded in the 
second word of a 2 word jump instruction using the abso- 
lute addressing. The label assigned to the 1st of the 2 
locations containing this instruction is LDXIT2. 

2. If the Loading Operation did not involve Load-and-Go 
input, the location $E4 contains a zero. If ($E4) = 0, 
its original value contained in E4SAVE is restored to it. 

3. If (AINPUT) i= 0, the Loader Operation was not terminated 
due to unrecoverable errors. In this case, the following 
values are placed in the A, Q & I registers: 

(XFRADR) >A 

(QINPUT) >Q 

(PRODIF) « > I 
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where 

a) (XFRADR) = core location for legal transfer address of 
programs or = -0 if no legal transfer address is indicated. 

b) (QINPUT) = 0 if loader Operation terminated due to EOL 
input block or = core address for monitor control statement 
if operation terminated by the occurrence of such a 
statement in the Loader input. 

c) (PRODIF) = word length of command sequence placed on mass 
storage during Loading Operation. This word count is 
zero if the space required for the programs read in by 
the Loader does not exceed the capacity of Load Time Core. 

In the event the Loader Operation was not terminated due to an un- 
recoverable error, (AINPUT) = 0. The A, Q 6c I registers will be 
set to the following values: 


0 

(XFRADR) 

(PRODIF) 



4. A return jump is made to the monitor from LDXIT2. 


PROGLD 


The sequence of code for this branch begins at the location whose 
name is progld. Upon entry at PROGLD, the location QINPUT contains 
an address. Recorded at this address, the Loader expects to find 
the ASCII code for an followed by up to 7 characters, the last 

of which must be a space or a carriage return. 


PROGLD uses the SCAN routine (see item 28.8.1) to extract the program 
name from the storage area. In order to do this the location WRDCNT 
is set up as a character reference counter which means that - 


1. Bits 1-15 of WRDCNT reference the word containing a character, 
and 

2. Bit 0 of WRDCNT is to reference the right character of the 
right character (lists 0-7). 

Therefore, prior to entering SCAN, WRDCNT is set to reference the 
2nd character in the storage area whose starting address is contained 
in QINPUT: 

( QINPUT )*2-+l >WRDCNT 


also prior to entering SCAN, 
0 >SCANSW & 


A register. 
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Upon return from SCAN, the 3 locations SYMSTR, SYMSTR+1, & SYMSTR+2 
contain the ASCII code for up to 6 characters, and the location (INPREL) 
contains a terminating character for the name. If the name has fewer 
than 6 characters, the unused character positions at the right end of 
the storage area SYMSTR to SYMSTR+3 are space filled. 

Upon return from SCAN a search is made of the Loader Table for this 
name using the TABSCH routine. (See item 28.8.5.) If this name had 
been found in the Loader Table a jump is made to the TABCHK loop in 
the code concerned with loading subroutines from the library. If this 
name is in the Loader Table as an external, it will automatically be 
loaded from the Library as a subroutine. If this name appears in the 
Loader Table as an entry point, it is assumed that the appropriate rou- 
tine containing this entry point has been read in. On the other hand, 
if upon return from TABSCH, the name has not been found in the Loader 
Table, a Loader Table entry is made using the TABSTR routine (see item 
28.8.6) in which this name is entered as an external. A jump is made 
to SUBRLD and the process continues as if it were a subroutine load 
operation. (See item 28.6.6.) 

In order to search the loader table for this name, prior to entering the 
TABSTR routine, the location INPCTR must be set such that - 

M SYMSTR n > INPCTR 

If, upon return from TABSCH, the name has not been found - 
(SW6)<0, 

otherwise the address of the entry containing the name - 
(TABLIM) + (SW6) 

When entering this name in the Loader Table as an external, the following 
locations must be set; 

"SYMSTR’’ > INPCTR 

-0 > LINK 

$7FFF-— > ENTPNT 
-1 >SW6 

If upon return from SCAN, the location INPREL does not contain a legal 
terminator such that - 

(INPREL) ^ ASCII code for space, or 

(INPREL) # $FF indicating carriage return, 
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an error condition exists. This is regarded by the Loader to be the 

same as an unpatched external. An error indication of "ElO" is 

given using the PRINT3 set to the address in QINPUT, and a cancel 

character = $7F is inserted into bits 8-15 of ((QINPUT)). Using 

the LDRIV routine (see item 28.7.4), the 6 character name and the illegal 

terminator are printed on the list device. The locations SW4 and 

SW5 are set - 

"SW4B" ^SW4 & "SW5B" >SW5. 

A jump is made to a location in the TABCHK loop to further check the 
Loader Table for unpatched externals. This process has already been 
described in item 28.6.6.5. 

316.9 Exit from PROGLD 

Once the legality of illegality of the input to PROGLD have been 
established, the Loader Operation continues as if it were a sub- 
routine load operation. This was already indicated by item 28.6.8. 

Therefore, the exit procedure by which a return to the monitor is 
made, is that described by item 28.6.7. Exit from SBLOAD. 

316.10 MAPS 

The sequence of code for this branch begins at the location whose 
name is MAPS. A memory map consists of a listing of the contents of 
each loader table entry which contains an entry point name and an 
entry point address. It will be necessary to transfer an entry point 
name to the 1 ine-o f - pr int buffer. The entry point address which con- 
sists of a 15 bit number must be converted to the ASCII code for 4 
hex digits before it can be stored in the line-o f- pr int buffer. The 
routine to cause this conversion has as its entry point a location named 
CONVRT * 

The format for a line of print is as follows: 

ENTRY POINT TABLE: 

SSSS***CQMSSHHHH 

SSSS***DATSSHHHH 

SSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSS 

etc. 

where: 

each M X n represents an alphanumeric character, 
each H h ? ' represents a hexadecimal digit, 
each "S M represents a space, and 

the address for an entry point name appears immediately to 
the right of the name. 
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The line n SSSS***COMSShhhh M is printed to indicate the Common Storage 
Relocation Base, and is omitted if there is no common storage block 
reservation. The line M SSSS***DATSShhhh ,! is printed to indicate the 
Data Storage Relocation Base and is omitted if there is no data stor- 
age block reservation. An entry point name in the Loader Table will 
not be printed if either - 

(1) It appears in a duplicate Loader Table entry, or 

(2) It is an entry point name from the Table of Presets and 
no program had been loaded containing an external which 
references this name. 

If the above condition 1 exists, it is detected by the fact that 
W0RD3 from a duplicate Loader Table entry for an entry point name 
contains a 0. If the above condition 2 exists, it is detected by 
the fact that there is a sign bit of 1 in W0RD2 of a Loader Table 
entry meaning that this is an entry point name from the Table of 
Presets. This sign bit will be made 0 when a program is loaded which 
contains an external which references this entry point name. 

With respect to vertical spacing, 4 rows preceed and follow the 
heading. The lines of print are single spaced. A line of print 
contains up to 4 entry point names and addresses. If fewer than 4 
appear on a line, the right end of the line-of-pr int buffer is 
filled with spaces. The output device for producing memory maps 
is the standard list device. 

3^6.11 Exit from MAPS 

Exit from MAPS is made as follows: 

1. The location $EE contains the address for returning from 
the Loader to the monitor. This address is stored in the 
second word of a 2 word jump instruction using absolute 
addressing. The label assigned to the 1st of the 2 loca- 
tions containing this instruction is LDXIT3. 

2. If the loading operation did not involve Load-and-Go input, 

the location $E4 contains a zero. If ($E4) 0, its ori- 

ginal value contained in E4SAVE is restored to it. 

3. The exit parameters are placed in the A, Q & I register as 
fol lows : 



4. A return jump to the monitor is made from LDXIT3. 
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3^*6. 12 Subroutines Used by and Internal to BRANCH 

There are two subroutines used by and internal to the BRANCH sub- 
program: 

1. LIMSET 

2. GETADR 

3*16.12.1 LIMSET 

The purpose of the LIMSET subroutine is to set the new temporary 
limits of unprotected core. Within the LIMSET routine, the A 6c Q 
registers are set to the limit addresses, and a core request is 
issued in order to record these addresses in the locations $EC and 
$ED. The limit address supplied for this core request are as follows: 

1. The lower limit which is placed in the Q register is equal 
to the last execution time storage address for the command 
sequence read in during this Loader operation. 

(CSQLIM) - 1 — > Q reg. 

2. The upper limit address is either the upper limit of unpro- 
tected core or the relocation base for common storage - 

a. The upper limit address is the top of unprotected 
core if there is no Common Storage Block Reservation. 

If (COMBAS) = 0 

(C0MLIM)-4A reg. 

b. If there is a Common Storage Block Reservation, the 
upper limit address for the Core Request is the reloca- 
tion base for common storage - 

If (COMBAS) f 0 

(COMBAS ) — 4 A reg. 

The LIMSET routine is entered with a return jump to the location 
whose label is LIMSET. Exit from the LIMSET routine is with a 
jump to the address placed in the location LIMSET upon entry to 
the routine. 

3*16.12.2 GETADR 

The GETADR subroutine is entered by a return jump to the location 
whose label is GETADR. The GETADR subroutine will search the Loader 
Table for a name to match the transfer name which appeared in the 
last XFR block read by the Loader. The transfer name contains up 
to 6 characters and is stored at XFRNAM, XFRNAM-1 6c XFRNAM+2. 

The transfer name is legal if - 

a. A Loader Table entry contains a name to match this 
transfer name, and - 

b. the address in W0RD4 of this Loader Table entry is 
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an entry point address. 

If the transfer name is legal, the entry point address from the 
Loader Table entry is placed in the location XFRADR. The transfer 
name is illegal if either - 

a. There exists no Loader Table entry which contains 
a name to match this transfer name, or - 

b. the address in W0RD4 of this Loader Table entry is not 
an entry point name. 

If the transfer name is illegal, a value = -0 is placed in the 
location XFRADR. An exit is made from the GETADR subroutine by a 
jump to the address placed in the location GETADR upon entry. 

316.13 Subroutines Used by and External to BRANCH 

Subroutines used by and external to the BRAN* n subprogram are as 
follows: 

PRINT 3 

PRINT 4 

PRINT 5 

TABSCH 

TABSTR 

SCAN 

CONVRT 

CDRIV 

MDRIV 

LDRIV 

LOADER 

DPRADD 

3^6.13.1 PRINT 3 (See item 28. 8 . 7 . 1 . ) 

PRINT3 is used for printing error messages on the list output device. 
Prior to entering PRINT3, the ASCII code for the error message is 
placed on the A register. The information placed in the A register 
consists of either 2 characters of 1 character followed by a space. 
Entrance is made to the PRINT3 subroutine with the following instruc- 


tion: 




LABEL 

OPCODE 

ADDRESS 

REMARKS 


EQU 

PRINT3( 1 14) 



RTJ- 

PRINT3 , I 



The output device used by the PRINT3 subroutine is the standard list 
device for the System. This is the device whose equipment table 
ordinal appears in the communication region address $FD. 

31.6.13.2 PRINT 4 (See item 28.7.3.) 

The PRINT 4 routine is used by MAPS to print the names and relocation 
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bases for common and/or data storage reservation while listing the 
entry point table. Prior to entering the PRINT4 subroutine, the A 
register is set to the binary value for the address to be printed and 
the Q register is set to the 1st word address of the output area. 

(The PRINT4 subroutine will cause the value in the A register to be 
converted to the ASCII code for 4 hex digit and recorded in the out- 
put area.) The PRINT4 subroutine is entered by execution of the 
f o 1 lowing instruction : 

LABEL OPCODE ADDRESS REMARKS 

EQU PRINT4( 154) 

RTJ- PRINT4, I 

The output device used by the PRINT4 subroutine is the same as that 
used by PRINT3 (item 28.10.12.1). 

3^6. 13.4 TABSCH (See item 28.8.5) 

Given the storage area for a 6 character name, the TABSCH subroutine 
is used to search for this name in the Loader Table. Prior to 
entering the TABSCH subroutine, the location INPCTR is set to the 
1st word address of storage for the given 6 character name. Upon 
exit from TABSCH - 

a. if no Loader Table entry had been encountered with a name 
to match the given name, then - 

(SW6) _ 0, or 

b. If a Loader Table entry with a matching name had been located, 
then - 


(SW6) _ 0, and 

(TABLIM)-*-(SW6) = 1st word address of this loader table 
entry 

Entry to TABSCH is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EQU TABSCH(IOO) 

RTJ- TABSCH,! 

3 ^ 6 . 13.5 TABSTR (See item 28.8.6) 

The TABSTR routine is used to enter a name and address into the Loader 
Table. Prior to entering the TABSTR routine - 

a. the location INPCTR is set to the 1st word storage address 
of a given 6 character name, 

b. the location ENTPNT contains the address for this name, 

c. the location LINK is set to a -0 if this is the 1st Loader 
Table entry for this name (or, if not, LINK is set to the 
address of word 3 of a previous Loader Table entry containing 
this name), and 
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dm the location SW6 is either - 

1. set to zero if the given name is an entry point, or 

2. set to a -0 if the given name is an external. 

3^6. 13.6 SCAN (See item 28.8.1) 

The SCAN subroutine is used by the BRANCH subprogram during a program 
load operation. SCAN is used to extract a name from the storage 
area. The 1st character of the storage area occurs in the left half 
of the 1st word and is assumed to be the character *• The second 
character of the storage area is in the right half of the 1st word 
and is assumed to be the 1st character of the name. Therefore, the 
location used as the character reference counter, WRDCNT, is set 
as follows - 

1. bits 1-15 contains the 1st word address of the input area, and 

2* bit 0 is set to a 1 to reference the right half of the 1st 
word. 

Upon return from SCAN, the locations SYMSTR, SYMSTR J ~1, and SYMSTR+2 
contain up to 6 characters for the name. The terminal character is 
stored in the right half of the location INPREL. If the name con- 
tains fewer than 6 characters, the unused character positions in 
SYMSTR to SYMSTR-^2 are filled with spaces. If the name contains 6 
characters or more, the location INPREL contains the 7th character 
of the input area as the termination character. 

The SCAN subroutine is entered by execution of the following instruc- 
tion: 

LABEL OPCODE ADDRESS REMARKS 

EQU SCAN( 146 ) 

RTJ- SCAN, I 

3^6.13.7 CONVRT (See item 28.8.4) 

The CONVRT subroutine is used by MAPS to convert a 16 bit binary num- 
ber to the ASCII code for hex digits. The 16 bit number to be converted 
is the entry point address from a Loader Table entry. Prior to 
entering CONVRT, the binary number is placed in the A register. 

Upon return from SCAN, the locations BINASC and BINASC+1 contain 
the ASCII code for the 4 hexadecimal digits. 

CONVRT i|| entered by execution of the following instruction. 

LABEL .. |, OPCODE ADDRESS REMARKS 

EQU CONVRT (150) 

RTJ- CONVRT, I 

NOTE: ; Tfeis subroutine is also used by PRINT4. 
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3^.6. 13.8 CDRIV (See item 28.7.2) 


CDRIV is the subroutine used for I/O operations on the typewriter. 
Prior to entering the CDRIV routine, the A register is at the 1st 
word address of the storage area, and either - 

1. the Q register is set to the number of words for a write 
operation, or - 

2. the Q register is set to zero for a read operation. 


Entrance to the CDRIV subroutine is made by execution of the follow- 
ing instruction - 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


EXT* 

MDRIV 



RTJ 

MDRIV 


MDRIV 

(See item 28.7.3) 




MDRIV is the subroutine used for I/O operations on a mass storage 
device. Prior to entering MDRIV, the A register is set as follows: 


1. (A) - starting address if the device to be used is the mass 
storage unit containing the scratch area. 

2. (A) = one's complement of the starting address if the device 
to be used is the mass storage unit containing the Program 
Library. 


Also, prior to entering MDRIV, the Q register is set as follow^: 

1. (Q) = number of words if the operation is to read. 

2. (Q) = one's complement of the number of words if the operation 
is to write. 

Entry to the MDRIV routine is by execution of the following instruction 

LABEL OPCODE ADDRESS REMARKS 

EXT* MDRIV 

RTJ MDRIV 


3=16.13.10 LDRIV 

LDRIV is the subroutine which is used for output on the standard list 
device for the system. Prior to entry to LDRIV, the A register is 
set to the starting address and Q to the number of words for the output 
operation. Entry to LDRIV is made by execution of the following 
subroutine : 
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LABEL 

OPCODE 

ADDRESS 

REMARKS 


EXT* 

LDRIV 



RTJ 

LDRIV 


LOADER (See 

item 29.1) 




LOADER is the common subroutine used by RBLOAD, SBLOAD, and PROGLD 
to perform the functions of reading and processing relocatable 
binary input blocks. Entry to LOADER is made by execution of 
the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EXT* LOADER 

RTJ LOADER 

3^,6.13.12 DPRADD (See item 28.8.11) 

DPRADD is the subroutine which computes the absolute value of the 
starting sector number for an I/O operation using a mass storage 
device. Prior to entering the DPRADD routine - 

1. Bits 0-14 of A contain a 15 bit number which is the rela- 
tive of the starting sector number. 

2. Bits 0-14 of $E4 contain the relative value of the sector 
number (in the scratch area) which is the end of the load- 
and-go input. 

3. The locations SCO and $C1 contain the absolute value (30 
bits) of the 1st sector number in the scratch area as 
follows: 

a. The most significant half of the number is in bits 0-14 
of $C0, and 

b. The least significant half is in bits 0-14 of $C1. 

Upon return from DRPADD, the absolute value of the starting sector 
number for the I/O operation is recorded in bits 0-14 of SECTNO 
(most significant half) and in bits 0-14 of SECTNO+1 (least signi- 
ficant half). This number is obtained by the following addition: 

(A register) + ($E4) -t ($C0,$C1) 

Entry to DPRADD is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EQU DPRADD (200) 

RTJ- DPRADD,! 
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3^.7 I/O FOR LOADER OPERATIONS 

There are four routines used by the Loader for 1/0 operations. Each 
of these routines is entered with a return jump to it.s 1st word 
address. The name given to the 1st word address of each routine is 
declared as an entry point name for that routine. Also, the entry 
point name for the routine is referenced as an external within the 
subprogram elsewhere in the Loader requiring the use of this routine 
for I/O. 

Routines used for 1/0 operations expect in input parameters such 
information as the starting address, number of words, starting sector 
if the device is mass storage, etc. These input parameters are 
passed to each of these routines through the A register, the Q 
register, the I register and certain prescribed locations in the 
constant table. A routine used by the Loader for 1/0 will insert 
each of these parameters into the appropriate spots within a para- 
meter list. The format of this parameter list is that used for a 
formal 1/0 request, and it is headed by a return jump instruction: 

RTJ- (10) 

EQU I0($F4) 

There are four routines used by the Loader for 1/0 operations. These 
entry point names are as follows: 

IDRIV 

CDRIV 

MDRIV 

LDRIV 

3=17.1 IDRIV 

The routine whose name is IDRIV is used to read either ASCII or 
binary formatted records from the input device. The binary records 
are those of the relocatable binary format produced by the 1700 
Assetttb ler . 

3 C 17.1.1 Constant Table Storage Referenced by IDRIV 

'NAME. .USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

BININP 193 

INPLUN 175 

PR0SEC 194 

The constants are used as follows: 

1. BININP contains the starting address for a read opera- 

tion using the input device. 

2. INPLUN is the name given to the 1st of 2 sequential 

locations which contain information pertaining 
to the logical unit number of the input device. 
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3. PROSEC is the name given to the 1st of two locations 

which contain a sector number for the read 
operation. This is ignored if the input medium 
is not the mass storage device. 

7.1.2 Communication Region Constants Used by IDRIV 

CONSTANT LOCATION 

$7FFF $42 = MASK1 

$8000 $21 = MASK2 

3*1 7. 1.3 Entry to IDRIV 

The input parameters to IDRIV are as follows: 

1. If (A) is positive, the mode is ASCII, and (A) represents 
the starting address. If (A) is negative, the mode is 
binary, and (A) represents the one's complement of the 
starting address. 

2. The information pertaining to the logical unit number for 
the input device is stored at the 175th and 176th locations 
in the constant table. The names for these locations are 
INPLUN and INPLUN+1. 

3. If the input medium is the mass storage device, PR0SEC and 
PR0SEC-H contain the sector number for the record to be 
read. 

Entry is made to IDRIV with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EXT* IDRIV 

RTJ IDRIV 

3T.7.1.4 IDRIV 1/0 Request 

The input parameters for the 1/0 requests are handled in the following 
way: 

1. Starting Address 

If (A) is positive upon entry to IDRIV, the contents of the 
A register is recorded as the starting address. If (A) 
is negative upon entry to IDRIV, the one's complement of 
the A register is recorded as the starting address. The 
starting address is recorded in the location specified by 
the S^ parameter in the calling sequence. 

2. Word Count 

Since IDRIV is used primarily to read relocatable binary 
records produced by the 1700 Assembler, the value 60 
will be placed in the parameter list for the 1/0 request 
as the N parameter. The value 60 represents the maximum 
size record that can be read from the input device. 
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3. Mode 

If {A} is positive upon entry to IDRIVi the M para- 
meter in the calling sequence is set for the ASCII 
mode of operation. If {A} is negative upon entry 
to IDRIVt the M parameter is set for the binary 
mode of operation. 

M . Logical Unit Number 

The information for the logical unit number by 
which the input device is referenced is taken from 
the constant table and inserted as parameters into 
the calling sequence. The contents of INPLUN is 
inserted as the J_ parameter and the contents of 
INPLUN+1 is inserted as the A^ parameter. 

Prior to issuing the I/O request! the completion flag 
IFLAG is initially set to a 3 bit value of 001. The 
location in the parameter list reserved for the thread 
{label = THREAD} contains a zero. The I/O request is 
issued by execution of the instruction preceding the 
parameter 1 ist - 

RTJ- {10} 

Once the operation is initiated! the location THREAD 
is set non-zero. The IDRIV routi n<- will wait in a loop 
until completion occurs. While the input operation is 
in progress! the location THREAD remains at a non-zero 
value. Upon completion of the operation! THREAD is 
reset to a zero value. Also! IFLAG is set to a 3 bit 
value which reflects the state of the input operation 
upon its completion. 

Upon completion of the input operation! a status request 
is made. As a result of this status request! bits 4-10 
of the Q register will indicate whether the input device 
was or was not a mass storage unit. If the device had 
been a mass storage unit! the 30 bit sector number stored 
in PROSEC and PR0SEC+1 would have been increased by 1. 

If the Loader is loading from the Program Library! then 
INPUT+Sfl and INPUT+SI contain the next sector address 
of the present program. Both LIBEDT and the SYSTEM INI- 
TIALIZER insert a thread into each block on the Program 
Library to allow available sectors to be used as effic- 
iently as possible. Thus! a program need not be on con- 
tiguous sectors in the Program Library. The next sector 
address is saved in PROSEC and PROSEC+l! then the last 
three words of the input block are cleared to zero before 
returning to the caller. 
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Also! as a result of this status request! the A register 
will contain the information pertaining to the hardware 
status. This information will be recorded at a location 
STATUS+1. Ifn upon completion of the input operation! 
bit 5 of the location IFLAG is a Ch the operation is 
regarded as being error free. 

The A register is set to a minus zero value! and a jump 
is made to the exit from IDRIV. 

Ifi upon completion of an input operation! bit c? of the 
location IFLAG is a li the input operation was terminated 
due to error. In this case! IDRIV looks at bit 1 of the 
hardware status information stored at STATUS+1- If bit 
R=D! it is assumed that an unrecoverable error condition 
such as parity exists as a result of the read operation. 
The A register is set to a Ch and a jump is made to exit 
from IDRIV. If bit R / Ch an error condition due to 
motion failure has occurred. The A register is set to 
+1 to indicate the alarm condition and a jump is made 
to the exit from IDRIV. 
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3=17.1.4 Exit from IDRIV 

Exit from IDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (IDRIV) 

3 % 7 . 2 CDRIV 

The routine whose name is SCRIV is used for either input or output 
operations on the communication device. 

3*T 7.2.1 Entry to CDRIV 

The input parameters to CDRIV are as follows: 

1. The A register contains the starting address. The A 
register is always assumed to be positive by the CDRIV 
routine. 

2. The word count is in the Q register if CDRIV is to perform 
an output operation. The Q register is otherwise zero. 

Entry to CDRIV is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT* CDRIV 

RTJ CDRIV 

317.2.2 CDRIV I/O Request 

The input parameters for the CDRIV requests are handled in the follow- 
ing way: 

1 . Starting Address 

The starting address in the A register is recorded in the loca- 
tion specified by the S parameter of the calling sequence. 

2. Request Code 

If the Q register is now zero, the request code is in the 
calling sequence is set for an output operation. If the Q 
register is zero, the request code is set for an input opera- 
tion. 

3 . Word Count 

If the Q register is non zero, it is assumed by CDRIV to be 
positive. The value in the Q register is then inserted into 
the parameter list in the calling sequence as the N para- 
meter. If the Q register is zero, a value of 60 is inserted 

into the parameter list as the N parameter. 
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Prior to issuing the I/O request, the completion flag CFLAG is set to 
a 3 bit value of 001. The location in the parameter list reserved for 
the thread (label = THREAD) contains a 0. The 1/0 request is issued 
by execution of the instruction which preceeds the parameter list - 

RTJ- (10) 

Once the operation begins, the location THREAD is set to a non zero 
value. The CDRIV routine will wait on a loop until completion occurs. 
While the 1/0 operation is in progress, the location THREAD will re- 
main at a non zero value. Upon completion of the operation, the 
location THREAD will be reset to zero. Also, upon completion of the 
1/0 operation, the location CFLAG is set to a 3 bit value which 
reflects the state of the 1/0 operation upon its completion. 

If the operation was for output, the status is ignored. The A register 
is set to a minus zero value, and a jump is made to the exit from 
CDRIV. If the operation was for output, bit 2 of the location CFLAG 
will be zero if the operation is error free. The A register will be 
set to a minus zero, and a jump will be made to the exit from CDRIV. 

If bit 2 of the location CFLAG is a 1, theoperation was terminated 
due to an unrecoverable 1/0 error. The A register will be set to a 
zero, and a jump will be made to the exit from CDRIV. 

3^.7, 2. 3 Exit from CDRIV 

Exit from CDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (CDRIV) 

3*17.3 MDRIV 

The routine whose name is nDRIV is used for either input or output 
operations on the mass storage device. 

3*3. 7.3.1 NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

START 172 

START is the location which contains the starting address for the 
mass storage I/O. 

3*37.3.2 Communication Region Constants Used by the MDRIV Routine 

CONSTANT LOCATION 

$8000 $21 = MASK2 

IS. 7.3.3 Entry to MDRIV 

The input parameter to MDRIV are as follows: 

1. The A register contains the starting address. The A 
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register is positive if the device used is the mass storage 
unit containing the scratch area. The A register is nega- 
tive if the device is the mass storage unit containing the 
Program Library. If (A) is negative, the one’s complement 
of (A) is the starting address. 

2. The Q register is positive if the I/O operation is for reading 
from mass storage, and it is negative if the operation is for 
writing. The absolute value for the Q register represents 
the word count. 

3. The locations SECTNO & SECTN0+1 contain the double precision 
number of 30 bits for the starting sector. The least signi- 
ficant half is stored in SECTNQ+1, and the most significant 
half in SECTNO. 

Entry to MDRIV is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT* MDRIV 

RTJ MDRIV 

3T. 7.3.4 MDRIV I/O Requests 

The input parameters for the I/O requests are handled in the following 
way : 

1 . Starting Address 

The starting address in the A register is recorded in the 
location specified by the S parameter in the calling sequence. 
If (A) is negative, the one’s complement of A is recorded. 

2. Request Code 

If Q is positive, the request code is set for a read opera- 
tion. If Q is negative, the request code is set for a write 
operation. 

3. Word Count 

If Q is positive, the value in Q is stored in the parameter 
list of the calling sequence as the N parameter. If Q is 
negative, the one's complement of the value in Q is recorded 
as the N parameter. 

Prior to issuing the I/O request, the location in the parameter list 
reserved for use as a thread (label = THREAD) contains a zero. The 
I/O request is issued by execution of the instruction preceding the 
parameter list - 
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RTJ- (10) 

Once the operation begins, the location THREAD is set to a non-zero 
value. The MDRIV routine will wait in a loop until completion occurs. 

While the I/O operation is in progress, the location THREAD remains 
at a non zero value. Upon completion of the operation, the location 
THREAD is reset to 0. Also, upon completion of the operation, a 
jump is made to the exit from MDRIV. 

Exit from MDRIV 

Exit from MDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (MDRIV) 

3*1. 7. 4 LDRIV 

The routine whose name is LDRIV is used for output on the list 
devic e . 


3*1. 7. 4.1 Entry to LDRIV 

The input parameters to LDR TV are as follows: 

1. The A register contains the starting address. The A 
register is assumed to be positive by the LDRIV routine. 

2. The Q register contains the word count. The Q register is 
assumed to be positive by the LDRIV routine. 

Entry is made to LDRIV with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT* LDRIV 

RTJ LDRIV 

3% 7.4.2 LDRIV I/O Requests 

The input parameters for the I/O requests are handled in the following 
way : 

1 . Starting Address 

The starting address in the A register is inserted into the 
address specified by the S parameter in the calling sequence. 

2. Word Count 

The word count in the Q register is inserted into the para- 
meter list of the calling sequence as the N parameter. 
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Prior to issuing an I/O request, the contents of the location in the 
parameter list word reserved for use as a thread (label = THREAD) 
contains a zero. The I/O request is issued by execution of the 
instruction which preceeds the parameter list - 

RTJ ($F4) 

Once the operation is initiated, the location THREAD is set to a 
non zero value. The LDRIV routine will wait in a loop until comple- 
tion occurs. While the I/O operation is in progress, location THREAD 
reamins at a non zero value. Upon completion of the operation the 
location THREAD is reset to zero. Also, upon completion of the opera- 
tion, an exit is made from the LDRIV routine. 

3^.8. 4. 3 Exit from LDRIV 

Exit is made from LDRIV by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (LDRIV) 

3^.8 SUBROUTINES ACCESSED VIA CONSTANT TABLE 

The last paragraph of item 28.5.2.1.1 descriges how a subroutine may 
be accessed from any other routine in the loader with a return jump to 
a location in the constant table. The subroutines accessed in this 
manner are as follows: 

SCAN 

CHPU 

ADJOVF 

CONVRT 

TABSCH 

TABSTR 

PRINT3 

PRINT 2 - STOP 

PRINT4 

PRINT 5 

LINK1 

LINK2 

COREXT 

DPRADD 


3=1.8 . 1 



SCAN 

The SCAN subroutine is used to extract a single element from an 
input block containing ASCII data. There are four types of elements 
contained in an input block. 
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1. Alphanumeric name, 

2. Hexadecimal numbers, 

3. Decimal numbers, 

4. Null elements. 


3*1.8. 1.1 Constant Table Storage Referenced by SCAN 


NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


WRDCNT 
COUNT 1 
SCANSW 
SYMSTR 
BLKCNT 
INPWRD 
INPREL 
BLANKS 
NEGSW 


24 

25 

22 (bits 0-3) 

19-21 6c bits 4-15 of 22 
27 
10 
11 
18 
9 


Constant Storage is used as follows: 


1 . WRDCNT 


2. C0UTN1 


3. SCANSW 


is used as a character reference counter* Prior 
to entering the SCAN subroutine, bits 1-15 of 
this location must be set to the storage address 
for the 1st character of a field to be extracted. 
Bit 0 is set to a zero if the 1st character occurs 
in the left half of the word and to a 1 if the 
1st character is in the right half. 

is used as a character counter. It is set to 
the one’s complement of the maximum number of 
characters in a particular type of field may 
have. 

bit settings are as follows: 

a. If bit 0 of SCANSW is set to a 0 and the 
field being processed by SCAN contains a 
numeric operand, the number will be processed 
as a decimal number unless it is preceded by 
an M $ ,f . The number will then be processed 
as a hexadecimal number. If bit 0 of SCANSW 
is set to a 1 and the field being processed 
contains a numeric operand, the operand is 
processed as a hexadecimal number whether or 
not it is preceded by a M $ M . Bit 0 of SCANSW 
may be referred to elsewhere in the documenta- 
tion by the name HEXSW. However, this name 
is not used in the coding for SCAN. 


/if ^ 

l 4,y 
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4. SYMSTR 

SYMSTR+1 

SYMSTR+2 


5 . BLKCNT 


6. INPWRD 


7. INPREL 


8. BLANKS 

9. NEGSW 


b. The field being processed by SCAN may have 
a leading algebraic sign of n + n only if 
bit 1 of SCANSW is set to a 1. 

c. The field being processed by SCAN may have 
a leading algebraic sign of M - ,! only if bit 
2 of SCANSW is set to a 1. 

d. If the field being processed contains a 
numeric operand, SCAN will convert the ASCII 
code to a binary number. In addition, if 
bit 3 of SCANSW is set to a 1, the ASCII code 
for the digits of the numeric operand will 

be extracted from the input block. 

is set to the ASCII code for the characters in 
the field being processed by SCAN. If the field 
contains a numeric operand, the location SYMSTR 
is set to zero. If bit 3 of SCANSW=1, the locations 
SYMSTR+1, SYMSTR+2 and bits 8-15 of SCANSW 
contain the ASCII code for the digits of the 
numeric operand. 

is set by SCAN to reference character positions 
in the block of words reserved for SYMSTR. Bits 
1-15 are set to the address at which a character 
is to be stored. The character is stored in the 
left half of the word if bit 0 is set to a 0. 

The character is stored in the right half of the 
word if bit 0 is set to a 1. 

is set by SCAN to the binary value of a numeric 
operand after its conversion from the ASCII code. 

(If the operand is not numeric; i.e., (SYMSTR) ^ 0 
the contents of INPWRD will be set to zero.) 

is set by SCAN to the ASCII code for the character 
terminating the field being processed. The char- 
acter is stored in bits 0-7 while bits 8-15 are 
set to zeros. 

contains the ASCII code for 2 spaces = $2020. 

is set to a -1 if the operand in the field being 
processed is preceded by a lega 1 leading algebraic 
sign of It is set to a +1 if the operand 

is preceded by a legal algebraic sign of n + n . 

It is set to 0 if the operand contains no legal 
leading algebraic sign. (A leading algebraic sign 
of M - n is legal if bit 2 of SCANSW=1, and that of 
,f +" is legal if bit 1 of SCANSW=1. 
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3^. 8.1.2 Entry to SCAN 


Prior to entry to SCAN, the 24th location of the constant table should 
be set to reference the field to storage position for the 1st character 
in storage of the field to be processed. The entire A register should 
be set to zero, or bits 8-15 set to 0 while bit 0-7 contain the 
ASCII code for a character. Entry is made to SCAN by execution of 
the following instruction: 


LABEL OPCODE 


ADDRESS REMARKS 


RTJ- SCAN 

EQU SCAN( 144) 


The location in the constant table, NEGSW is set to zero. The 
locations SYMSTR, SYMSTR+1 and SYMSTR+2 are backrounded to the 
ASCII code for spaces. The constant $2020 is added to the contents 
of the location SCANSW and the sum replaces the contents. 


If A is zero upon entry, the SCAN routine references storage for the 
1st character in the field according to the contents of the location 
WRDCNT. If A is non zero (as described above), the SCAN routine will 
process bits 0-7 of the A register as the leading character of the 
field and reference storage for the second character. 


3^.8. 1.3 Processing a Field Containing a Name 

An alphanumeric name may contain a maximum of 6 characters. The 
characters from which a name may be composed are the alphabetics 
A-Z and the numerics 0-9. The leading character of a name must be 
one of the alphabetics A-Z. The last character of a name must be 
followed by one of the characters used as a terminator. This is any 
non-a Iphabet ic character. 


Upon exit from the SCAN subroutine thename is placed in the locations 
SYMSTR to SYMSTRT2. These locations are ordinals 19-21 within the 
constant table. If fewer than 6 characters are contained in the name, 
each of the unused character positions at the right end of the name 
is filled with the ASCIT code for a space. The terminating character 
is stored in bits 0-7 of the location INPREL. 

If there is excess number of characters, the locations SYMSTR to 
SYMSTR+2 contain the first 6 characters. Bits 0-7 of the location 
INPREL contain the 7th character. A transfer is made to the exit 
from SCAN. 

3rL8.1.4 Processing a Field Containing a Hexadecimal Number 

A hexadecimal number contains a maximum of 4 hexadecimal digits. The 
characters from which a hexadecimal number may be composed consists 
of the number 0-9 and/or the letters A-F. Either a ,f $ fr must precede 
the hexadecimal number, or bit 0 of the location SCANSW must be a 1 
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upon entry to the SCAN subroutine • If neither of these conditions 
exists, then the following occurs: 

1. If the first character of the element is one of the alpha- 
betics A-F, the element will be processed as if it were an 
alphanumeric name. The terminating character will be either 
a non alphanumer ic character or the 7th character of the 
name, whichever occurs sooner. (Refer to item 28.8.1.3.) 

2. If the first character of the element is one of the numerics 
o-9, the element will be processed as if it were a decimal 
number. The terminating character will be either a non 
decimal digit or the 6th digit of the number. (Refer to 
item 28.8. 1.5. ) 

Upon exit from the SCAN subroutine, the location SYMSTR is set to 
zero, the location INPWRD contains the binary value for the hexadecimal 
number and the bits 0-7 of the location INPREL are set to the ASCII 
code for the terminating character. The terminating character is 
either the 1st non hexadecimal character of the field or the 5th 
hexadecimal digit of the numeric operand. If the number is preceded 
by a the one’s complement of this binary number is placed in the 

location INPWRD. If bit 3 of SCANSW=1, the locations SYMSTR+1, 

SYMSTR+2 and SCANSW are filled with the ASCII code for a dollar sign 
and followed by up to 4 hex digits for the numeric operand. 

The terminating character for a hexadecimal number is either a character 
which is not a hexadecimal digit of the 5th hexadecimal digit in the 
number, which ever is first to occur. 

If there is an excess number of digits, the location SYMSTR is set to 
zero, the location INPWRD will be set to the binary value of the 
hexadecimal number and the last character processed will be in bits 

0-7 of INPREL. A transfer will be made to the exit from SCAN. 

3*^8. 1.5 Processing a Field Containing a Decimal Number 

A decimal number contains a maximum of 5 decimal digits. The char- 
acters from which a decimal number may be composed consists of the 
number 0-9. The terminating character for a decimal number may be 
non decimal digit. Upon exit from the SCAN subroutine the location 
SYMSTR is set to zero, the location INPWRD contains the binary value 

for the decimal number and bits 0-7 contain the ASCII code for the 

terminating character. If the number is preceded by a n - n , the one’s 
complement of the binary number is placed in INPWRD. The locations 
SYMSTR+1, SYMSTR_2 and the bits 8-15 of SCANSW will contain the ASCII 
code for up to 5 decimal digits if bit 3 of SCANSW=1. 

The value 65535 should be the largest decimal number used as a numeric 
operand. The SCAN routine will convert this decimal number to a 16 
bit binary number of all ones (= hexadecimal number of $FFFF). A decimal 
number greater than 65535 will be truncated at its most significant 


CA 1 38-1 



CONTROL DATA CORPORATION • DEVELOPMENT DIV • SO FTWAR U/$ eIW ^ 

DOCUMENT CLASS IMS PAGE NO_3Vk3 

PRODUCT namf 1700 OPERATING SYSTEM 4B711 

PRODUCT NO. EQQ6n3. □ VERSION LlQ MACH I NE SERIFS 1700 



end when it is converted to binary. Only the 16 least significant 
bits will be recorded by the SCAN routine. 

Decimal numbers with leading algebraic signs are processed by SCAN 
in the same manner as hexadecimal numbers with leading algebraic 
signs. 

B^S.l.b Processing a Field Containing a Null Element 

If the leading character of an element is neither an alphabetic 
character nor a leading algebraic sign, the element is a null 
element*, 

A transfer is made immediately to the eixt from SCAN with - 

1. The locations SYMSTR, SYMSTR+1 & SYMSTR+2 set to a value of 

$ 2020 , 

2. The location INPWRD set to a value of 0, and 

3. Bits 0-7 of the location INPREL set to the ASCII code for 
non alphanumeric character (null element). 

3*18. 1.7 Processing Fields With Leading Algebraic Signs 

Upon entry to SCAN, a leading algebraic sign in a field may be either 
the first character in storage (if A = 0), or it may be the character 
in bits 0-7 of the A register. 


An algebraic sign is a terminator if it is not at the beginning of 
a field. A leading algebraic sign of is legal only if bit 2 

of SCANSW=1. A leading algebraic sign of M =” is legal only if bit 1 
of SCANSW— 1. An illegal leading algebraic sign acts as a terminator 
for a field which has no characters. An exit is made from SCAN with 
SYMSTR, SYMSTR 4 1 & SYMSTR+2 filled with spaces, and with NGRLSW 
and INPWRD set to 0, The terminal character is in bits 0-7 of 
INPREL. 

3^8. 1.8 Exit from SCAN 

An exit from SCAN is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- SCNXIT , I 

EQU SCNXIT (143) 

3 ^. 8 . 1.9 Subroutines Used by and External to SCAN 

CHPU extracts 1 character from the input and stores it 

in INPREL* The character reference counter, WRDCNT, 
is increased by 1 prior to each return from CHPU. 
Entry is made to CHPU. Entry is made to CHPU with 
the following instruction: 


''K-Jf 



CA 1 38-1 



MAR 5 1971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IBS PAGE NO 3 *170 

PRODUCT NAMF 1700 OPERATING SYSTEM 4B711 

PRODUCT NO F.OOfi xq.n VFRSION 1.0 Machikif series_17Q0 


LABEL OPCODE 


ADDRESS REMARKS 


RTJ- CHPU , I 

EQU CHPU (108) 


3H8.1.10 Subroutines Used by and Internal to SCAN 


GETBIN 

NUMBER 


LETTER 


STRCHR 


receives the ASCII code for a digit and returns the 
4 bit binary equivalent in the accumulator. The 
routine examines a character from the field. If the 
character is a digit between 0 and 9, the ASCII code 
is placed in A and an exit is made. If HEXSW is set 
to 1 and the character is between A and F, the ASCII 
code is placed in A and an exit is made. If the char- 
acter is not a digit, A is set to -0 and a transfer 
is made to the exit. 

examines character from the field. If the character is 
alphanumeric, the ASCII is placed in A and a transfer 
is made to the exit. If the character is not alpha- 
numeric, A is made =0, and a transfer is made to 
the exit. 

stores a character from a name or a number in the block 
of locations beginning with SYMSTR. BLKCNT, the char- 
acter storage reference counter is increased by 1 after 
the storage of each character. 


Each of the above subroutines is entered with a return transfer to 
the location whose name is the same as the subroutine name. Exit 
is made with a jump to the address in the entry point of the 
subroutine. 


3^.8. 2 CHPU 

The CHPU subroutine is used to extract a single character from the 
input block containing the ASCII data. 

3^.8. 2.1 Constant Table Storage Referenced by CHPU 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

WRDCNT 24 

INPREL 11 

Constant storage is used as follows: 

1. WRDCNT is used as a character reference counter. 

2. INPREL is where the character is stored when it is extracted 

from the input information block by the CHPU routine. 
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3 ^ 8 . 2. 3 Entry to CHPU 

Entry is made to the CHPU routine with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- CHPU, I 

EQU CHPU( 108 ) 

Upon entry to CHPU, bits (1-15) of the location WRDCNT reference 
a core location. If bit 0 of the WRDCNT is a zero, the left 
character (bits 8-15) in this core location is extracted and placed 
in bits (0-7) of the location INPREL. If bit 0 of the WRDCNT is 
a one, the right character (bits 0-7) are extracted and placed in 
bits (0-7) of the location INPREL. The contents of WRDCNT is in- 
creased by 1 aid a transfer is made to the exit. 

338.2.4 Exit from CHPU 


Exit from CHPU is made with the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP- 

CHPXIT , I 



EQU 

CHPXIT ( 107) 


ADJOVF 





The ADJQ1®F is a subroutine which performs 15 bit address arithmetic. 
338.3.1 Constant Table Storage Referenced by ADJ0VF 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


AHOLD 196 

QH0LD 197 

The locations ASAV and QSAV are used for storage of the A and Q 
registers respectively upon entry to the ADJ0VF routine. 

33.8.3.2 Communication Region Constants Used by ADJ0VF 

CONSTANT LOCATION 

$7FFF $42 = MASK1 

$8000 $21 = MASK2 

33.8. 3.3 Entry to ADJOVF 


Prior to entry to the ADJ0VF subroutine, the two operands for the 
address arithmetic are placed in the A and Q register. Entry to 
the ADJOVF subroutine is made with the following instruction: 



LABEL 

OPCODE 

ADDRESS 

REMARKS 

CA138 1 


RTJ- 

ADJOVF , I 




■ EQU 

ADJOVF (142) 
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3T.8. 3. 4 


3 ^. 8 . 5.3 


3 ^. 8 . 3. 6 


3T.8.3.7 


Address Arithmetic 

This subroutine is used primarily to add the relative value for a 
relocatable address to a relocation base. Upon entry to ADJOVF, 
the A register contains the relocatable address in bits 0-14, and 
the Q register contains the relocation base. Bit 15 of A is not 
included in the address arithmetic. Upon exit from ADJOVF, bits 
0-14 of the A register contain the 15 bit result for the address 
arithmetic together with the original setting for the sign bit. 

Address Arithmetic for Positive Address Relocation 

The address arithmetic for positive address relocation is: 

relative value + relocation base = absolute value 

Address arithmetic for positive address relocation is performed if 
the Q register is positive upon entry to ADJOVF. 

The sign bit of A is extracted, recorded and replaced with a 0. 

The A and Q registers are summed and the result is placed in A. 

Since this is 15 bit wrap around arithmetic, the sign bit of A is 
handled as if it were an end around carry in one’s complement arith- 
metic. The result is in bits 0-14 of A. The original sign bit is 
inserted into bit 15 of A. A transfer is made to the exit from 
ADJOVF . 

Address Arithmetic for Negative Address Relocation 

The address arithmetic for negative address relocation is: 

-(relative value + relocation base) absolute address 

Address arithmetic for negative address relocation is performed if 
the Q register is negative upon entry to ADJOVF. Bits 0-15 of the 
A register are set to the one’s complement of the relocatable 
address. 

The sign bit of A is extracted, recorded and replaced with a 1. 

The A and Q registers are complemented, and address arithmetic is 
performed in the manner described in the last paragraph of item 
28.8.3.5. The result in bits 0-14 of A is then recomplemented and 
the original sign bit is inserted into bit 15 of A. A transfer is 
made to the exit from ADJOVF. 

Exit from ADJOVF 

Exit is made from the ADJOVF subroutine with the following instruction 
LABEL OPCODE ADDRESS REMARKS 


CA 138-1 
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3*1.8. 4 


3*3.8. 4.1 


3*38.4.2 


3^8.4. 3 


CONVRT 

The CONVRT routine is used to replace a 16 bit binary number with 
the ASCII code for 4 characters representing the digits of the 
equivalent hexadecimal number. 

Constant Table Storage Referenced by CONVRT 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

COUNT 1 25 

BINASC 111-112 

AHOLD 196 

HEX CODES 125-140 

Constant storage is used as follows: 


1 . COUNT 1 

2. BINASC 


3. AHOLD 

4. H EXDIG 


is used as counter for program execution within 
a loop. 

consisting of 2 words, is filled with the ASCII 
code for exactly 4 characters representing hex 
digits. 

is used to hold the bits for the binary number 
during the conversion process. 

is the beginning of 16 consecutive locations 
in the constant table. End of these locations 
contains the ASCII code for a character repre- 
senting a hexadecimal digit. 


Entry to CONVRT 

Prior to entry to CONVRT, the A register is set to the binary number 
for which the ASCII output for the equivalent hexadecimal number is 
to be generated. Entry is made to CONVRT by executing the following 
instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- CONVRT, I 

EQU CONVRT (148) 

CONVRT Operation 

Upon entry to CONVRT, the A register contains a 16 bit binary 
number. This number is held in AHOLD during the CONVRT operation. 
The CONVRT eill extract 4 bits at a time from this number and re- 
place them with the ASCII code for one of the hexadecimal digits. 

The four bit bytes are processed in a left to right order. The 4 
ASCII corresponding to these bytes are stored in 2 consecutive 
words* 2 to a word. 
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15 12 

11 8 

7 4 

3 0 

A register: 

byte 1 

byte 2 

byte 3 

byte 4 


15 

8 

7 

0 

HEXDIG 

HEX1 

HEX2 

HEXDIG+1 

HEX3 

HEX4 


3*^8. 4. 4 


3^8.4. 5 


318.5 


3*j 8.5. 1 


Exit from CONVRT 

The exit is made from CONVRT by execution of the following instruc- 
tion: 

LABEL OPCODE ADDRESS REMARKS 

JMP- CNVXIT , I 

EQU CNFXIT( 147 ) 

Subroutines Used by and Internal to CONVRT 

GETHEX is used by CONVRT to replace a 4 bit byte in a 

binary number with the ASCII code for a hexadecimal 
digit. The contents of AHOLD are shifted left cir- 
cular 4 upon entry to GETHEX. Bits 0-3 of AHOLD 
ate placed in the A register. GETHEX will replace 
this value with the corresponding hex digit and a 
transfer is made to the exit. 

GETHEX is entered with a return jump to the location 
by that name. 

TABSCH 

The TABSCH subroutine is used to search the Loader Table for an 
entry containing a name to match a name supplied by the calling pro- 
gram. 

Constant Table Storage Referenced by TABSCH 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


COUNT 1 

25 

TABLIM 

7 

TABCTR 

16 

SW6 

28 

AHOLD 

196 

INPCTR 

15 


Constant Storage is used as follows: 
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1. COUNT 1 

2. TABLIM 

3. TABCTR 

5. AHOLD 

6. INPCTR 


is used as a counter for program execution within a 
loop. 

contains the lowest (toward 0) core address occupied 
by the loader table. 

contains the number used as an index. This number is 
added to the base address of the Loader Table (con- 
tained in TABLIM), and the resultant address points 
to the 1st word of some entry in the Loader Table. 

is used as temporary storage for the A register 
during execution of the TABSCH subroutine. 

contains the first address of storage of the name 
being searched for in the Loader Table. 


3^8. 5.2 Communication Region Constants Used by TABSCH 


CONSTANT LOCATION 

$7FFF $42 = MASK1 

3^8. 5.3 Entry to TABSCH 

Prior to entering TABSCH, the location INPCTR is set to the 1st word 
address of the sequential locations containing the name being searched 
for in the Loader Table. Entry is made to TABSCH with the following 
instruction : 


LABEL OPCODE ADDRESS REMARKS 

RTJ- TABSCH, I 

EQU TABSCH(IOO) 

3=18.5.4 Searching Operation 

Upon entry to the TABSCH subroutine - 

1. The location INPCTR contains the first word address of some 
entry in the input block. 

2. The location TABCTR contains the number of entries in the 
loader table, and 

3. the location TABLIM contains the first word address of the 
Loader Table. 


The location TABCTR contains the number of Loader Table entries. If 
(TABCTR) = 0, there are no Loader Table Entries. The location SW6 
is set to a -0, and a jump is made to the exit from the TABSCH routine. 

The location TABLIM contains the base address of the Loader Table. The 
location SW6 is to be used as an index counter. When the value is SW6 
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is added to the address in TABLIM, the resulting address is the 1st 
word of a Loader Table entry. Initially, upon entry to TABSCH, the 
location SW6 is cleared to zero. TABSCH will compare bits 0-14 of 
the first 3 words or each entry of the loader table with bits 0-14 of 
the first 3 words of the entry from the input block as follows: 

((INPCTR)) is compared with ( (TABLIM)+(SW6) ) 

((INPCTR Hi) is compared with ( (TABLIM)+(SW6)+1) 

(( INPCTR) 1-2) is compared with ( (TABLIM)+(SW6)+2) 

If a comparison is made between the name is a Loader Table entry and 
the given name, a jump is made to the exit from TABSCH, Upon exit from 
TABSCH the address obtained by the addition 

(TABLIM)+(SW6) 

is the 1st core location of the Loader Table entry with the matching 
name. 



Each time a comparison test with a Loader Table entry fails, the value 
in SW6 is increased in order to access the next Loader Table entry: 

(SW6)4 5 SW6 

If comparison with each Loader Table entry has failed, the end of the 
Loader Table has been reached. When the end of the Loader Table has 
been reached, the value in SW6 is as follows: 

(SW6) = (TABCTR) * 5 

If the name from the input block entry does not match any name in the 
loader table, the location SW6 is set to -0, and a transfer is made 
to the exit address. 


3^8. 5.6 Exit from TABSCH 


Exit from the TABSCH subroutine is made with the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP- 

SCHXIT , I 



EQU 

SCHXIT(99) 


TABSTR 





The TABSTR routine is used to make an entry into the Loader Table. 


3*1.8. 6. 1 

c 


Constant Table Storage Referenced by TABSTR 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


TABLIM 

7 

TABCTR 

16 

DATCTR 

182 

CSQCTR 

183 


CA 1 38-1 



CONTROL DATA CORPORATION 


DEVELOPMENT DIV 


SOFTWAI 


5 1971 

CUMENT 


DOCUMENT CLASS IMS PAGE NO-.JfLZZ 

PRODUCT name 1700 OPERATING SYSTEM 4B711 

PRODUCT NO E 00 ^jj 3 jl 11 _ VERSION 1.0 MArHiKiP SERIFS 1700 


INPCTR 

15 

COUNT 1 

25 

ENTPNT 

13 

LINK 

14 

SW6 

28 


Constant table storage is used as follows: 


1 . 

TABLIM 

contains the lowest (toward 0) core address occupied 
by the Loader Table. 

2. 

TABCTR 

contains the number of entries in the Loader Table. 

3. 

DATCTR 

contains the upper limit address (last address +1) of 
the Load Time Data Storage Buffer. 

4. 

CSQCTR 

contains the upper limit address in Load Time Core 
(last address +1) for storage of command sequence read 
in by the Load. 

5. 

INPCTR 

contains the first address of storage of the name 
being stored in the Loader Table. 

6. 

C0UNT1 

is used as a counter for program execution within a 
loop. 

7. 

ENTPNT 

contains the absolute core address associated with the 
name to be stored in the Loader Table. 

8. 

LINK 

contains an address which serves as a pointer. If a 


name appears at least one other Loader Table entry, 

LINK contains the address which points to Word 4 of 
that entry. If it does not appear in some ai try in the 
Loader Table, LINK contains a -0 ,f . (See item 28. 5. 2.3*2 
for Loader Table information.) 

9. SW6 is set to a 0 if the name referenced by INPCTR is to 

be recorded in the Loader Table as an entry point name. 

It is set to a -1 if the name referenced by INPCTR is 
to be recorded as an external name. 


3^8.6. 2 Entry To TABSTR 


Prior to entering TABSTR, the location INPCTR is set to the 1st word 
address of the sequential locations containing the name to be recorded 
in the Loader Table. Entry is made to TABSTR with the following 
instruction: 


LABEL OPCODE 


ADDRESS REMARKS 


RTJ- TABSTR, I 

EQU TABSTR( 104) 
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3*^8. 6. 3 Table Store Operation 




Upon entry to TABSTR - 

1. The location INPCTR contains the first word address of the 

name for the entry to be made in the Loader Table. 

2. The location TABLIM contains the base address of the Loader 
Table. 

3. The location ENTPNT contains the address for this name. 

4. The location SW6 contains either a zero if (ENTPNT) is an 

entry point address or a -1 if (ENTPNT) is a link address. 

5. The location LINK contains a -0 if the name referenced by 
INPCTR appears nowhere else in the Loader Table, or the address 

* in LINK points to W0RD4 of the most recent entry to the 

Loader Table containing the name referenced by INPCTR. 

The TABSTR subroutine will first make sure that by adding another 
entry to the Loader Table, there will be no overflow of available 
core. Overflow of available core will result if - 

(TABLIM) - 5 > (CSQCTR) 

(TABLIM) - 5 > (DATCTR) 

If either of these two conditions should arise, a return jump will 
be made to the PRINT 3 error routine where an error indication is 
printed. A list will be made of all unpatched externals when a jump 
is made to TABCHK. The name TABCHK is declared as an external in 
TABSTR and as an entry point in the routine named BRANCH. (See item 
28.6.6.5.) If neither of these conditions arises, the name whose 
first word address is in INPCTR is placed in the loader table. The 
entry is made as follows: 

( TABCTR) * 1 > TABCTR 

( TABLIM) - 5 — > (TABLIM) 

((INPCTR)) > (TABLIM) 

((INPCTR)t-l) A ( TABLIM )-+ 1 

((INPCTR)+2) MTABLIMH2 

The address for the name is placed in the fourth word of the entry 
as follows: 

(ENTPNT) 9 - (TABLIM)+3 if (SW 6 ) = 0, or - 

-(ENTPNT) (TABLIM)+3 if (SW6) = 1 

The ’’pointer" is placed in the last word of the entry as follows: 

(LINK) — ' > (TABLIM)+4 
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3^8. 6. b Exit from TABSTR 

Following a loader table entry, exit is made from TABSTR with the 
following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- STRXIT , I 

EQU STRXIT (103) 

If overflow of core would have occurred as a result of the Loader 
Table entry, exit is made from the TABSTR routine with the following 
instruction: 


LABEL OPCODE ADDRESS REMARKS 

JMP TABCHK 

Where the name TABCHK is declared as an external in TABSTR and as an 
entry point name in the routine named BRANCH. 

3^8.7 LSTOUT 


There are four routines used by other subprograms of the Loader as 
standard routines for output operations on the standard list device for 
the system. The four subroutines are: 

PRINT3 
PRINT2 
PRINT4 
PRINT 5 

3^8.7.! PRINT 3 

PRINT3 is a subroutine used for printing error messages. The 
error messages consist of the letter * followed by 1 or 2 hexadecimal 
digits. Operation within the Loading Procedure may be resumed imme- 
diately following the error message output. 

3^.8. 7.1.1 Entry to PRINT3 

Prior to entering PRINT3, the A register is set to the ASCII code 
for two hexadecimal digits. ( If a number for an error message 
contains only 1 digit, the digit will be in bits 8-15 of A. Bits 0-7 
of A contain the ASCII code for a space.) PRINT3 is entered with the 
f o 1 lowing instruct ion : 

LABEL OPCODE ADDRESS REMARKS 

RTJ- PRINT3 , I 

EQU PRINT3( 1 14) 


ff ^ 
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3 ^ 8 . 7. 1.2 Error Message Output 

Upon entry to PRINT3 the A register is stored at COMSGE+1 while the 
ASCII code for a space and the letter E is stored in COMSGE. The 
1st word address of the error message output — u C0MSGE n is placed in 
the A register. The length of the message is placed in the Q 
register. A return transfer is made to the routine CDRIV where the 
address CDRIV is declared as an external. CDRIV is the entry point 
for the I/O routine for the comment medium. (See item 28.7.2.) 

31 * 8 . 7 . 1.3 Exit from PRINT3 

Exit from the PRINT3 routine is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- PR3XIT , I 

EQU PR3XIT( 113) 

7.1.4 Subroutines Used by and External to PRINT3 

is used for output on the comment medium. This routine 
is entered with a return jump to its entry point whose 
name is CDRIV. 


PRINT2 is a subroutine used for printing error messages. The 
error message consists of the letter E followed by 2 hexadecimal 
digits. The Loading Operation is terminated by entrance to PRINT2. 

3 ^ 8 . 7.2.1 Entry to PRINT 2 

The A register is set prior to entering PRINT2 in the same manner as 
described for PRINT3 (see item 28.8.7.1.). Entry to PRINT2 is made 
with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- PRINT2, I 

EQU PRINT2( 119) 

3 ^ 8 . 7. 2.2 Error Message Output 

Immediately upon entry a return transfer is made to PRINT3 to print 
the error message. Upon return from PRINT3, a jump is made to the 
address whose name is STOP. At STOP, the A register is made 0, 
and the Q register is set to -0. 

c 


CDRIV 

( 

B^. 7 ^ PRINT 2 
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BIS. 7. 2. 3 Exit from PRINT 2 

Exit is made from STOP with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 

where the n&me LOADER is declared as an entry point in the LOADER 
routine and as an external in the PRINT2 routine. 

3^.8. 7. 2.4 Subroutines Used by and Internal to PRINT 2 

PRINT3 which is entered for error message output with a return 

jump to the address = 114 + (I). 

3*3.8. 7. 3 PRINT 4 

The PRINT4 subroutine is used to print a message consisting of a 6 
character name and a 4 digit hexadecimal address. The format is 
as follows: 

SSSSXXlOCXXSShhhh 

where - 

S - space 

X - alphanumeric character, and 
h - a hexadecimal digit. 

3*3.8. 7. 3.1 Constant Table Storage Referenced by PRINT4 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 
BINASC , 111-112 

The constants are used as follows: 

1. BINASC locations are used for storage of hex digits after 
number conversions have binary to ASCII. 

3*3.8. 7. 3. 3 Entry to PRINT 4 

Prior to entering PRINT4, the Q register is set to the ASCII starting 
address for the message. The A register contains the binary number 
to be converted to ASCII code for the 4 remaining charactersof the 
output. BRMT is entered with the following instruction: 

• : \ ' ‘ 

LABEL ' OPCODE ADDRESS REMARKS 

RTJ- PRINT4, 1 

EQU PRINT4( 154) 


’yfc&J 


/f ^ 
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31.8.7.3.4 Output Message Generation 

The address in Q is placed in temporary storage. The binary number 
in A is converted to the ASCII code for 4 hex digits by a return 
jump to CONVRT routine. Upon return from the CONVRT routine, the 
locations BINASC and BINASC+1 contain the ASCII code for the number. 

The hex digits in BINASC & BINASC+1 are placed in the 7th and 8 th 
words of the output area. The first word address of the output 
area is placed in the A register. The number of words to be printed 
( 8 ), is placed in the Q register. A return jump is made to the 
LDRIV routine for message output. Upon return from LDRIV a jump 
is made to the exit from the PRINT4 routine. 


3 ^. 8 . 7. 3. 5 Exit from’ PRINT 4 

Exit from PRINT4 is with the following instructions: 


LABEL OPCODE ADDRESS REMARKS 

JMP- PR4XIT , I 

EQU PR4XIT (153) 

3 ^. 8 . 7. 3 . 6 Subroutines Used by and External to PRINT4 

CONVRT is used to convert a 16 bit binary number to the 

ASCII code for 4 hex digits. This routine is entered 
with a return jump to the address = 148(1). (See 
item 28.8.4.) 

LDRIV is used to print a message on the list device. This 

routine is entered with a return jump to LDRIV where 
LDRIV is declared as an external. (See it>em 28.7.4.) 

3 «=). 8 . 7 . 4 PRINT 3 

The PRINT5 routine is used to print a six character name. 

3«=j.8.7.4.1 Constant Table Storage Referenced by PRINT5 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


INPCTR 15 

INPCTR contains the 1st word address for storage of the 6 

character name to be printed. 


31.8.7.4.2 Entry to PRINT 5 

Prior to entering PRINT5, the location INPCTR is set to the 1st 
word address for storage of the 6 character name to be printed. 
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Entry is made to PRINT5 with the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


RTJ-- 

PRINT 5, I 



EQU 

PRINT5( 158) 



3 C |.8.7.4.3 Output Message Generation 

The addr#|# in INPCTR is placed in the A register. The length of 
the output is placed in the Q register (3 words). A return transfer 
is made to CDRIV where this name is referred to as an external 
address. A transfer to the exit from PRINT5 is made upon return 
from CDRIV. 


3^.8. 7. 4.4 Exit from PRINTS 

Exit is iftade from PRINT5 with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- PR5XIT , I 

EQU PR5XIT( 1 57) 


3 C 18.7.4.5 Subroutines Used by and External to PRINT5 


CDRIV is used to print the 6 character name. (See item 

28.7.2.) 

3 c l8. 8 LINK1 

Instructions which reference the same external name are tied together 
by a string of link addresses. The assembler generates two words 
for each instruction that references an external name. Bits 0-14 
of the second word of each instruction contains a link address which 
points to the location containing the next link address in the 
string. The last location in the string cont ains a link address of 
$7FFF in bits 0-14. 


The LINK1 subroutine will replace each of the link addresses in a 
string with the entry point address for the particular name. 

3*18.8.1 Constant Table Storage Referenced by LINK1 

NAME USES IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


DATLEN 

177 

ENTPNT 

13 

LINK 

14 

INPWRD 

10 

NGRLSW 

9 

PROD IF 

171 
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3T.8. 8. 2 


< 


3«=j.8.8.3 


3^8.8. 4 



Constant Table 

1. DATLEN 

2. ENTPNT 

3. LINK 

4. INPWRD 

5. NGRLSW 

6. PROD IF 


storage is used as follows: 

contains the length of the data block, 

contains the absolute value of the entry point address 
in bits 0-14, 

contains the absolute value of the 1st link address 
in a string. 

is used as temporary storage during program execution. 

is set positive or negative prior to entry to LINK1. 
Determines whether patching is for absolute or rela- 
tive addressing. 

contains the mass storage word count. 


Communication Region Constants Used by LINK1 

CONSTANT LOCATION 

$7FFF $42 = MASK1 


Entrance to LINK1 

Both LINK and ENTPNT are set prior to entering LINK1. Prior to 
entry to LINK1 the location NGRLSW is set either positive or nega- 
tive. The location NGRLSW is set with ((INPCTR)) = 1st 2 characters 
of the name. LINK1 is then entered with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- LINK1 , I 

EQU LINK1 ( 164) 


Patching 

Upon entry to the subroutine LINK1, the location LINK ccn tains a 
link address and the location ENTPNT contains an entry point address. 
The address in LINK points to the 1st location in a link address 
string. Each location in the link address string contains an address 
which points to the next location in the string. Bits 0-14 of the 
last location in the string are set to the value $7FFF. 

The address in LINK and ENTPNT are execution time addresses - they 
refer to locations in execution time core. Each of the addresses in 
a LINK address string is an execution time address. The command 
sequence containing the link address string occupies load time core. 
Therefore, the load time core address for the 1st location in the 
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string is obtained by the following arithmetic: 

(LINK) + (DATLEN) - (PRODIF) = Load time core address 
for 1st location in link address string. 

Similarly, the load time core address for successive locations in 
the string are obtained as follows: 

Execution time address -f (DATLEN) - (PRODIF) = load 
time core location 

If the contents of NGRLSW is positive, patching for the absolute mode 
of addressing will occur. 

LINK1 will replace the contents of every location in the string of 
the link addresses by the entry point address in ENTPNT. The 
following occurs: 

(DATLEN) - (PRODIF) + (LINK) LINK 

bits 0- 14 of ((LINK)) INPWRD 

(ENTPNT) (LINK; at bits 0-14, bit 15 of ((LINK)) is 
not changed 

(INPWRD) LINK 

If the contents of NGRLSW are positive, LINK1 will replace the 
contents of every location in the string by a relative value. This 
value is the difference between the address in LINK and the entry 
point address. The following occurs: 

(DATLEN) - (PRODIF) + (LINK) LINK 

bits 0-14 of ((LINK)) INPWRD 

(ENTPNT) - (LINK) (LINK) at bits 0-15 

(INPWRD) LINK 

LINK1 will loop to process the next link address in the string. The 
procedure terminates when the contents of LINK (bits 0-14) is $7FFF. 

A transfer is made to the address stored in the entry point. 

NOTE: The LINK1 operation may be referred to as patching. Patching, 

as illustrated above, may be either relative or absolute. However, 
the mode of patching is uniform for each location in the string of 
link addresses. 

3^8. 8. 5 Exit from LINK1 

Exit is made fromthe LINK1 routine using the following instructions: 
LABEL OPCODE ADDRESS REMARKS 
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JMP- 

EQU 


LKIXIT , I 
LKIXIT( 163) 
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3^.8. 9 LINK2 

LINK2 is the subroutine that is used to tie together two strings of 
link addresses. The last 15 bit address in each string is $7FFF. 
When two strings are tied together, the $7FFF at the end of string A 
is replaced by the address of the location containing the $7FFF at 
the end of string B. The complement of the 1st address of string B 
is placed in W0RD4 of the Loader Table entry for the external name, 
replacing the 1st address from string A. 

3«=).8.9. 1 CONSTANT TABLE STORAGE REFERENCED BY LINK2 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

177 

13 
10 

14 
9 

171 
181 
28 
7 


Constant table 

storage is used as follows: 


i. 

DATLEN 

contains the length of the data block. 


2. 

ENTPNT 

contains the absolute value of the address which 
to the beginning of the 1st string. 

points 

3. 

INPWRD 

is used as temporary storage during program execution. 

4. 

LINK 

contains the absolute value of the address vh ich 
to the beginning of the second string. 

points 

5. 

PROD IF 

contains the mass storage word count. 


6. 

PROLIM 

contains the upper limit address (last address + 
for the odd sector (1-95 words in length) at the 
bottom of unprotected core. 

i) 

7. 

TABLIM 

contains the lowest (toward 0) address occupied by 
the Loader Table. 

8. 

SW6 

contains an index, a value which when added to the 


base of the Loader Table, results in an address which 
points to an entry in the Loader Table. 



i 


DATLEN 

ENTPNT 

INPWRD 

LINK 

NGRLSW 

PROD IF 

PR0LIM 

SW6 

TABLIM 
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3=1.8. 9. 2 Communication Region Constants Used by LINK2 

CONSTANT LOCATION 

$7FFF $42 - MASK1 

$8000 $21 = MASK2 

3=18.9.3 Entry to LINK2 

Both LINK and ENTPNT are set prior to entering LINK2. The LINK2 
subroutine is entered with the following instruction: 



LABEL 

OPCODE 

ADDRESS 

REMARKS 

3=1.8. 9. 4 

Linking 

RTJ- 

EQU 

LINK2 , I 
LINK2( 168) 



Upon entry to LINK2 , the location ENTPNT contains a link address 
from an entry in the EXT input b lock* The location LINK contains 
the link address for an entry in the Loader Table. These addresses 
are both execution time addresses - they reference locations in 
execution time core. The external names from the input block entry 
and Loader Table entry match. 

The address in ENTPNT is temporarily recorded in the location INPWRD. 
If the address in ENTPNT is $7FFF a transfer is made to the exit 
from LINK2. An address of $7FFF is ENTPNT means that within the 
program currently being read in there is an external name which is 
not referenced by the address protion of any instruction in the 
program. If the address in ENTPNT is not $7FFF, it is a pointer 
to the second address in a string of link addresses which occur 
in the program currently being loaded. The location in the string 
which contains a $7FFF is the last address in the string. The 
address in LINK points to the 2nd address in a string of link 
addresses which occur in the previous program(s) loaded. 

In order to combine these two strings, the following is a nectssary 
condition: It is necessary for all programs to be loaded which 

reference the external name in question, do so in a uniform manner; 
(i.e., they must all reference this name with either the relative 
mode of addressing or with the absolute mode of addressing). This 
condition is met if the sign bits are alike for the 1st word in 
each of the two entries. 

(INPCTR) = 1st word address of the EXT block entry. 

(TABLIM)+(SW6) = 1st word address of the Loader Table entry. 

It is necessary that 

(INPCTR) 15 = ((TABLIM) + (SW6)> 15 
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Before this link operation occurs a check is made on the sign bits 
for the first word of both the EXT block entry and the Loader Table 
entry for this external name. The sign bit settings for these words 
must be alike. If they differ, the following error procedure 
results : 

1. A return jump is made to the PRINT3 error subroutine to 
print the error indication of E12. 

2. A return jump is made to the PRINT5 subroutine to print the 
name of the external. 

3. The Loading Operation is terminated when a jump is made to 
the location STOP where "STOP" is declared as an external. 

If the sign bits are alike, the operation of LINK2 is allowed to pro- 
ceed. 

In order to combine the string of link addresses corresponding to 
the Loader Table entry with the string corresponding to the EXT 
blank entry, LINK2 will do the following: 

1. Beginning at the location whose label is SLEW, LINK2 
traces through to the end of the link address string be- 
ginning with the address in ENTPNT. The address in ENTPNT, 
together with the other addresses in the Link address string, 
are execution time addresses. The link address string is 
contained in load time core. The load time core address 

of the 1st location in the string is obtained by - 

(DATLEN) - (PR0DIF ) - (ENTPNT) >ENTPNT 

2. ((ENTPNT)) = the execution time value of the next address 
m the link address string. If ^((ENTPNT)) r ~ $7FFF, 

the end of the string has been reached and tne operation 
proceeds with step 4. 

3. If ^((ENTPNT)) ^ 0, the load time value for the next 
address in the link address string is obtained by - 

(DATLEN) - ( PRODIF ) + (ENTPNT) > ENTPNT 

Step 2 is repeated. 

4. (ENTPNT) = the load time location for the last address in 
the link address string from the EXT block entry. The 
link address from the Loader Table entry, - (LINK), is 
recorded in bits 0-14 of (ENTPNT). Bit 15 of (ENTPNT) 

is not changed: 

CLINK) 0 + ( (ENTPNT) ) ^ > (ENTPNT) 
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5. (INPWRD) = the execution time location for the 1st address 
in the link address string from the EXT block entry. The 
one's complement of this address is recorded in W0RD3 

of the Loader Table entry: 

-(INPWRD) (TABLIM) + (SW6) H- 3 

6. An exit is made from the LINK2 routine. 

For purpose of illustration: 


1. Prior to the return transfer to LINK2 



a. a previous 

program loaded 

contains the following command 


sequence : 



LABEL 

OPCODE 

ADDRESS 

REMARKS 


NAM 

PROG A 



EXT 

ABC 



ORG 

DEF 



RAO 

ABC 



INA 

5 



STA 

ABC 



and the machine language is organized as follows: 

LOCATION 
DEF 


DEF+2 


DEF 14 
DEF 4 5 


b. the loader table contains the following entry: 

WORD 1 
WORD 2 
WORD 3 
W0RD3 


0 I A 

B 

c 

A 

A 

A 

one s complement of DEF+5 


CONTENTS 


RAO 01XX 00 

0 1 $7FF 

LDA | 01XX 

00 


DEF^l 

INA 

05 

STA 

01XX 

00 

L 

DEF+3 
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c. the current program being loaded contains the following 



sequence: 



LABEL 

OPCODE 

ADDRESS 

REMARKS 


NAM 

PROG B 



EXT 

ABC 



0RG 

GHI 



LDA 

ABC 



INA 

-3 



STA 

ABC 



and the machine language is organized as follows: 
LOCAT ION CONTENTS 

GHI 

GHI+2 
GHI+3 


1 

9 


00 

1 

WBsmmm 

INA -3 

STA 

01XX 

00 

L 

DEF+l 


d. the EXT block contains the following entry: 


W0RD1 
WORD 2 
W0RD3 
W0RD4 

2. Upon returning from LINK2 to the calling program 
a. the machine language is organized as follows: 


0 A 

B 

c 

A 

A 

A 

one’s complement of GHI+4 


LOCATION 

DEF 

DEF+2 

DEF+3 

DEF+4 

GHI 

GHI+2 

GHI+3 


CONTENTS 


139 

01XX 

00 

9 

mssmmm 

LDA 

01XX 

00 


DEF+l 

INA 

5 

STA 

01XX 

00 

0 

DEF+3 

LDA 

01XX 

00 


DEF+5 

INA 

-3 .. 

STA ■ 

II 

00 

9 

... GHI+1 
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b. the loader table entry in l.b. becomes 

WORD 1 
WORD 2 
WORD 3 
WORD 4 

For this example, when time comes to perform the LINK1 operatic n, 
all patching will be carried out for the absolute mode of addressing, 

NOTE: Had the exit psuedo in PROG A been 

EXT* ABC 


0 A 

B 

C 

A 

A 

A 

one f s complement of GHI-f-4 


while 


EXT ABC 

the following error output would have occurred during the load 
operation LINK2: 

E14 

ABC 

The entry in the EXT input block in PROG B wi 1 1 appear as follows: 


0 i A 

B 

C 

A 

A 

i 

A 

1 

one’s complement of GHI+4 


If, in the first illustration, no references had been made by this 
command sequence in PROG B to the external name, the fourth word 
of the EXT input block will contain the one's complement of $7FFF 
or $8000. 

Under such circumstances it will not be necessary to perform the 
LINK2 operation. Therefore, if upon entry to LINK2, (ENTPNT) = 
$7FFF, a transfer will be made immediately to the exit address. 

3^8.9. 5 Exit from LINK2 

Exit from LINK2 is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

JMP- LK2XIT, I 

EQU KL2XIT( 167 ) 
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3 ^ 8 . 9. 6 


3^8. 10 


3 ^ 8 . 10. 1 


Subroutines Used by and External to LINK2 
1. PRINT 3 


2. PRINT 5 


is used to print the error indication E12. (See 
item 28.8.7.1.) 

is used to print the name of an external. (See 
item 28.8.7.4. ) 


Entry to these subroutines is with the following instructions: 
LABEL 


OPCODE 

ADDRESS 

REMARKS 

RTJ- 

PRINT3, I 

ENTRY TO PRINT 3 

EQU 

PRINT3( 114) 


RTJ' 

PRINT 5, I 

ENTRY TO PRINT 5 

EQU 

PRINT 5 ( 153 ) 



COREXT 


The lower & upper limits of unprotected core as far as the Loader 
is concerned, are contained in LWRLIM & UPRLIM respectively. The 
Job Processor places the Relocatable Binary Loader at the high end 
of unprotected core. The lowest (toward 0) address occupied by 
the Loader is placed in the 23rd location of the constant table. 
The Location TABLIM is set initially to this address. The Loader 
Table extends downward in core. The location LOWCOR is initially 
set to (LWRLIM). That area of core available for storage of 
relocatable binary input is referred to etiher as ’’load time core” 
or "’available core”. The limits of available core are always: 

(LOWCOR)-U to (TABLIM)- 1. 


The length of any relocatable binary program loaded may not exceed 
the size of unprotected core. However, it may exceed the size of 
available core. When this occurs, available core no longer is the 
permanent storage place for the command sequence at execution time. 
Instead, available core is used as a buffer into which the Loader 
stores words of the command sequence after it absolutizes the re- 
locatable binary input. When this buffer is full, its contents are 
recorded as a block on mass storage. The operation is repeated 
until the loading operations is interrupted. Upon return to the 
monitor from the Loader, a location in the constant table will have 
the tally of the number of owrds on mass storage. The monitor will 
read this information into the low end of unprotected core before 
entering the program for execution. It is the function of the COREXT 
routine to empty the block of available core onto mass storage. 

Constant Table Storage Referenced by COREXT 


NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 
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ASAV 
QSAV 
PRO ST R 


89 

90 
1 
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L0WC0R 
PROD IF 
CSQCTP 
COUNT 1 
PROLIM 
DATLEN 
SECTOR 
SECTNO 


179 

171 

183 

25 

181 

177 

198 

173-174 


The contents are used as follows: 


1. ASAV 

2. QSAV 

3. PROSTR 

4. L0WC0R 

5. PRODIF 

6. CSQCTR 

7. COUNT 1 

8. PROLIM 

9. DATLEN 

10. SECTOR 

11. SECTNO 


is used for temporary storage f the operand in the 
A register. 

is used for temporary sio* age of the operand in the 
Q register. 

holds a load time storage base for the next program 
to be loaded. 

contains an address which when incremented by 1 is the 
lower limit address ‘ ;-r ^dress-l) of load time 
core. 

contains the tally for the number of words written onto 
mass storage by the COREXT routine. 

is used as an address ounter. 

is used as an address counter. 

is set prior to the exit from COREXT to an execution 
time address which is the upper limit of the ,f odd 
sector 1 ’. ( ee item 28.j.^.lO.) This address has 
a value such that 

(LOWCOR J . PRODIF)- (DAI LEN )<( PRODIF)^ 

(LOWCOR ) ‘ 96-1 PRODIF)- (DATLEN) 

contains the count for the number of words set aside 
for a data reservation. 

contains the word count for 1 sector on mass storage 
= 96. 

is the name for the 1st of 2 locations which contains 
the absolute value of the starting sector number 
when transferring words from core to mass storage. 

The number is 30 bits in length. The 15 most signi- 
ficant bits ar® recorded in bits 0-14 of SECTNO. The 
15 least significant bits are recorded in bits 0-14 
of SECTN* 





> 
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3=}. 8 . 10 . 2 Entry to COREXT 

Entry to the COREXT routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- COREXT, I 

EQU COREXT (188) 

3S8. 10.3 COREXT Operation 

Upon entry to COREXT, the number of words held in available core is 
equal to 

(PROSTR) - (LOWCOR)-l. 

The COREXT will only write whole sectors onto disk. The number 
of words in available core is divided by 96. 

(PROSTR) - (LOWCOR)-l = X + Y 

where X is the quotient and Y is the remainder. The number of 
words written onto mass storage is 96*X. The output area begins 
at (LOWCOR)-H and terminates with the address ( LOWCOR)+l+96*X. 

The tally, PRODIF, is increased by the value of 96*X. If X is 
zero, fewer than 96 words are in available core and no mass storage 
output occurs. 

The contents of the Y words at the high end of load time core 
are moved to the low end of load time core. 

C0UTN1 and CSQCTR are address counters used for the core to core 
transfer,, C0UNT1 is set to the address of (LOWCOR)+l+96*X, and 
CSQCTR is set to (LOWCOR)-fl. These address counters are increased 
by 1 for each word transferred. Whan the transfer is complete, the 
value in CSQLIM is placed in PROSTR. PROLIM is set to the execution 
time address ot vPROSTR) 4- (PRODIF) - (DATLEN). A jump is made to 
the exit from COREXT. 

If Y is zero, there is no core to core transfer as described above. 
The value of (L0WC0R)4-1 is placed in PROSTR. PROLIM is set to 
(PROSTR) 4- (PRODIF) - (DATLEN). A jump is made to the exit. If X 
is zero, there is no information to be written onto mass storage 
in the manner described above. The value = (L0WC0R) 4 14-Y is placed 
in PROSTR. PROLIM is set to (PROSTR) 4- (PRODIF) - (DATLEN). A 
jump is made to the exit. 

Exit from COREXT 

The exit from COREXT is made in the following way: 


3 ^ 8 . 10.4 

c 
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V j 


LABEL OPCODE ADDRESS REMARKS 

JMP- CXTXIT , I 

EQU CXTXIT( 187 ) 

3*18.10.5 Subroutines Used by and External to COREXT 

MDRIV is used to write absolute records from available 

core onto mass storage. MDRIV is entered with a 
return jump to the address. (See item 28.7.1.) 

DPRADD is used to compute the starting sector number for 

the mass storage operation. (See item 28.8.11.) 

3 *=1. 8 . 11 DPRADD 

This routine is used to compute the number for starting sector for 
mass storage operations. 

31.8.11.1 Constant Table Storage Referenced by the DPRADD Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

SECTN0 173 

DPRXIT 199 

The constants are used as follows: 

1. SECTNO is the name for the 1st of 2 locations at vhlch the 

double precision sector number (30 bits in length) 
is stored once it is computed by the DPRADD routine. 

2. DPRXIT is the location to which a jump is made in order to 

exit from the DPRADD routine. 

3*18.1.. 2 Communication Region Constants Used by DPRADD 

CONSTANT LOCATION 

$ 7FFF $42 = MASK1 

last sector of $E4 
Load-and-Go 

318.11.3 Entrance to DPRADD 


Entrance to the DPRADD subroutine is made with the following instruc- 
tion: 


LABEL 


OPCODE 

ADDRESS 

REMARKS 

RTJ- 

DPRADD, I 


EQU 

DPRADD (200; 



,/f ' r 



CA 1 38-1 



MAR 51971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IMS .PAGE NO-. 3 '^? 13 

PRODUCT NAMF 1700 OPERATING SYSTEM 4B711 

PRODUCT NO E0Q6 m3, n VFRStnN 1.0 MACHIKIF SFRIFS 1700 


3^8.11.4 DPRADD Function 

Upon entry to DPRADD, the A register contains a sign bit of 0 and 
a 15 bit number in bits 0-14. The number in A will be referred to 
as a single precision number. The location $E4 also contains a 
positive 15 bit number which is the relative value for the sector 
number at the end of Load-and-Go information on mass storage. 

The locations $C0 and $C1 contain a double precision number for 
the 1st sector in the scratch area. The most significant half of 
the number is in bits 0-14 of $C0 and the least significant half in 
bits 0-14 of $C1. 

The single precision number in the A register is added to the number 
in $E4. The result, in turn, is added to the double precision 
number in $C0 and $C1 and the result is placed in SECTNO and SECTNO+1. 

The sign bits of SECTNO and SECTNO+1 are 0 T s. The 15 most signifi- 
cant bits are in bits 0-14 of SECTNO while the 15 least significant 
bits are in bits 0-14 of SECTNO+1. 

3 * 18 . 11.5 Exit from DPRADD 


Exit from the DPRADD subroutine is made with the following instruc- 


t ion: 




LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP- 

DPRX IT , I 



EQU 

DPRXIT( 194) 



3^9 MAIN LOOP WITHIN THE LOADING PROCEDURE 

The main loop within the Loading Procedure consists of all the rou- 
tines and subroutines which are concerned with reading and processing 
Relocatable Binary Loader Input records. 

3T9.1 LOADER 

The functions of the LOADER routine are as follows: 

1. Read an input block. 

2. If I/O error occurs during input operation, take appro- 
priate action. 

3. Identify an input record, and branch to the appropriate 
routine to further process input record. 

4. If input record is unrecognizable, take appropriate action. 

3T.9.1.1 Constant Table Storage Ref erenced . by the LOADER Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 
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DSECNO 

203 


INPXCO 

117 


INPUT 

29-88 


LOWCOR 

179 


PRODIF 

171 


PROLIM 

181 


PROSTR 

185 


SECTOR 

198 


SECTNO 

173-174 


TABCTR 

16 


TABLIM 

7 


TABSNO 

204 

The 

constants 

are used as follows: 

1 . 

CSQCTR 

contains the load time limit address of the command 
sequence of all programs read in prior to the current 
Loader Operation. 

2. 

DATLEN 

contains the size of core set aside for data storage. 

3. 

DSECNO 

contains the starting sector number (relative number) 
for recording the contents of the Load Time Data 
storage buffer on the mass storage unit containing the 
scratch area. 

4. 

INPXCO 

contains the starting location of the 60 word input 
area for storage of the re locatab le binary input blocks 
read by the Loader. 

5. 

INPUT 

is the name for the first word address of 60 sequential 
locations used as storage for relocatable binary 
input records read by LOADER. 

6. 

LOWCOR 

contains the lower limit address of load time core. 

7. 

PRODIF 

contains length of the absolute record of the command 
sequence on mass storage. 

8. 

PROLIM 

contains the storage limit address (last address+1) 
for the odd sector (1-95 words in length) located at 
the bottom of unprotected core. (Refer to item 
28.3.2.10.) 

9. 

PROSTR 

contains the load time storage base for the next 
program to be read in by the loader. 

10. 

SECTOR 

contains the word count for a sector on mass storage. 
Word count = 96. 

11. 

SECTNO 

the 1st of 2 locations containing a mass storage sector 


number. The number is 30 bits in length. The 15 
most significant bits are in bits 0-14 of SECTNO. The 
15 least significant bits are in bits 0-14 of SECTNO-fl. 
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12. 

TABCTR 

contains 

the 

number of entries in the Loader Table. 

13. 

TABLIM 

contains 

the 

address which is the storage base of 



the Loader Table. 

• 

r— 1 

TABSNO 

contains 

the 

starting sector number (relative value) 


for recording the contents of the Loader Table on 
the mass storage unit containing the scratch area. 


3^.9. 1.2 Communication Region Constants Used by the Loader 

CONSTANT LOCATION 

$7FFF $42 = MASK1 

3^9. 1.3 Entry to the LOADER Routine 

LABEL OPCODE ADDRESS REMARKS 

RTJ LOADER 


where - 

the name LOADER is referenced as an external within the program from 
which the return jump is made, and as an entry point name within 
the LOADER routine. 

If, upon entry to LOADER, (PRODIF) = 0, there is no mass storage 
word count. The command sequence of programs read in on previous 
Loader Operations, if any, is contained entirely within the space 
of Load Time Core. A jump is made to the location SW1AXC, and the 
1st input block is read for the current Loader Operation. 

If, upon entry to LOADER, (PRODIF) ^ 0, (PRODIF) = the mass storage 
word count of the entire command sequence from programs read in 
during previous Loader Operations. While the current Loader Opera- 
tion is in progress, the mass storage word count in PRODIF must 
always be an integer multiple of 96. If, upon entry to LOADER, 
(PRODIF) is an integer multiple of 96, a jump is made to SW1AXC. If 
not, the last 1-95 words of the command sequence recorded on mass 
storage is read back into the bottom of Load Time core and (PRODIF) 
is reduced by this amount as follows: 

If (PRODIF) ± 0, and - 

if (PRODIF) = X + Y where Y ^ 0, then do the following: 

96 96 

1. Use the DPRADD routine (see item 28.8.11) to compute the 
absolute value of the scratch area sector containing the & 
words (where 1 <Y ^95). Record this sector number in 
the locations SECTNO & SECTNO+1. 
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X + ($E4) + ($C0 & $C1) SECTNO & SECTNO+1 

The starting address is placed in the A register. The word count is 
placed in the Q register. A return jump is made to the MDRIV rou- 
tine (see item 28.7.3) to read the 1-95 words into the bottom 

(L0WC0R) 4- 1 A 

Y Q 

Upon return from MDRIV a jump is made to SW1AXC to read the first 
relocatable binary input block for the current Loader Operation. 

3*19. 1.4 Reading Input Records 

At the location SW1ASC, the location SW1+1 is set to the address 
M SWlA ff . The locations SW1 and SW1+1 contain a 2 word jump instruction 
whose address is set during program execution. NOTE: In order to 

maintain the "run anywhere" characteristics of the Loader, the location 
SW1 contains a value of $1800, and SW1+1 is set to the following 16 
bit value: 

SW1A - SW1 - 1 

Input records to the Loader may be either binary formatted or ASCII 
formatted. All input operations are carried out in the binary mode. 
Therefore, any ASCII formatted record used as Loader input must have 
an "*" as the first character. The binary formatted records must 
be one of the 6 relocatable binary formats produced by the 1700 
Assembler. 

3*31.4.1 Reading Relocatable Binary Input Blocks 

The LOADER routine begins its input operation at the location NXTBLK. 
The Loader reads relocatable binary records or input blocks 60 words 
in length from the input device. The LOADER routine will read a 
formatted record in binary mode by doing the following: 

1. The 60 word buffer for relocatable binary input is back- 
grounded to all ones. 

2. The A register is set to the one's complement of the start- 
ing address. 

3. A return jump is made to the IDRIV routine (where the address 
IDRIV is referenced as an external name). 

Upon return from the IDRIV routine, the A register is set as follows: 

1. (A) = -0 if the read operation is error free. A jump is 
made using the two word jump instruction (with the variable 
address) at SW1 and SW1+1. The jump is made to the address 
at which the processing for the input record begins. 

2. (A) — 0 if the read operation were terminated due to an un- 
recoverable error encountered while reading. A jump is 
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319.1.2 


319.1.3 


12. 

TABCTR 

contains the number of entries in the Loader Table. 

13. 

TABLIM 

contains the address which is the storage base of 
the Loader Table. 

14. 

TABSNO 

contains the starting sector number (relative value) 
for recording the contents of the Loader Table on 
the mass storage unit containing the scratch area. 

Communication 

Region Constants Used by the Loader 

CONSTANT 

LOCATION 

$7FFF 

$42 = MASK1 


Entry to the LOADER Routine 


LABEL OPCODE 

RTJ 


ADDRESS REMARKS 

LOADER 


where - 

the name LOADER is referenced as an external within the program from 
which the return jump is made, and as an entry point name within 
the LOADER routine. 

If, upon entry to LOADER, (PRODIF) = 0, there is no mass storage 
word count. The command sequence of programs read in on previous 
Loader Operations, if any, is contained entirely within the space 
of Load Time Core. A jump is made to the location SW1AXC, and the 
1st input block is read for the current Loader Operation. 

If, upon entry to LOADER, (PRODIF) ^ 0, (PRODIF) = the mass storage 
word count of the entire command sequence from programs read in 
during previous Loader Operations. While the current Loader Opera- 
tion is in progress, the mass storage word count in PRODIF must 
always be an integer multiple of 96. If, upon entry to LOADER, 
(PRODIF) is an integer multiple of 96, a jump is made to SW1AXC. If 
not, the last 1-95 words of the command sequence recorded on mass 
storage is read back into the bottom of Load Time core and (PRODIF) 
is reduced by this amount as follows: 

If (PRODIF) ^ 0, and - 

if (PRODIF ) = X + Y where Y ^ 0, then do the following: 

96 96 

1. Use the DPRADD routine (see item 28.8.11) to compute the 
absolute value of the scratch area sector containing the 6c 
words (where 1 <; Y ^95). Record this sector number in 
the locations SECTNO 6c SECTNO+1. 
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X + ($E4) + ($C0 & $C1) SECTNO & SECTN0+1 

The starting address is placed in the A register. The word count is 
placed in the Q register. A return jump is made to the MDRIV rou- 
tine (see item 28.7.3) to read the 1-95 words into the bottom 

(L0WC0R) + 1 A 

Y Q 

Upon return from MDRIV a jump is made to SW1AXG to read the first 
relocatable binary input block for the current Loader Operation. 

3^9. 1.4 Reading Input Records 

At the location SW1ASC, the location SW14-1 is set to the address 
"SW1A". The locations SW1 and SW1+1 contain a 2 worn jump instruction 
whose address is set during program execution. NOTE: In order to 

maintain the "run anywhere" characteristics of the Loader, the location 
SW1 contains a value of $1800, and SW1+1 is set to the following 16 
bit value: 

SW1A - SW1 - 1 

Input records to the Loader may be either binary formatted or ASCII 
formatted. All input operations are carried out in the binary mode. 
Therefore, any ASCII formatted record used as Loader input must have 
an as the first character. The binary formatted records must 

be one of the 6 relocatable binary formats produced by the 1700 
Assembler. 

3*31.4.1 Reading Relocatable Binary Input Blocks 

The LOADER routine begins its input operation at the location NXTBLK. 
The Loader reads relocatable binary records or input blocks 60 words 
in length from the input device. The LOADER routine will read a 
formatted record in binary mode by doing the following: 

1. The 60 word buffer for relocatable binary input is back- 
grounded to all ones. 

2. The A register is set to the one's complement of the start- 
ing address. 

3. A return jump is made to the IDRIV routine (where the address 
IDRIV is referenced as an external name). 

Upon return from the IDRIV routine, the A register is set as follows: 

1. (A) = -0 if the read operation is error free. A jump is 
made using the two word jump instruction (with the variable 
address) at SW1 and SW1+1. The jump is made to the address 
at which the processing for the input record begins. 

2. (A) = 0 if the read operation were terminated due to an un- 
recoverable error encountered while reading. A jump is 


CA138-1 



MAR 5 1971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IM§ PAGE NOJ§9k2P 

PRODUCT kiame 1700 OPERATING SYSTEM 4B711 

PRODUCT NO E006*3.D VFRSION 1.0 MACHINF SERIFS 1700 ! 


made to the PRINT2 error exit where the error indication 
,! E1 ,! is printed and the Loading Operation terminates. 

3. (A) =fl if the read operation were terminated because of 

the alarm condition. The alarm condition arises as a 
result of motion failure on the part of the input device. 

A cause of this, to cite an example, is trying to read paper 
tape when there is no tape in the reader. The significance 
of the alarm error is discussed in the next four paragraphs. 

A relocatable binary program consists of a sequence of relocatable 
binary records beginning with a NAM block and terminating with an 
XFR block. These sequential records must be stored on a continuous 
external medium; i.e., not split between 2 paper tapes. Therefore, 
once the loading of a relocatable binary program has begun, an XFR 
block must be read before an alarm condition is sensed. 

The alarm condition is acceptable to the Loader if the loading of a 
relocatable binary program has been completed by reading and pro- 
cessing its XFR block. The alarm condition is also acceptable after 
reading an ASCII input block. 

Prior to reading the 1st relocatable binary input block, and subsequent 
to reading each XFR block, the address for the jump instruction at 
SW1 is set to SW1A. Also, subsequent to reading the first HEX 
block, the address for the jump instruction at SW1 is set to SW1E. 

It remains set to SW1E for the duration of the Loader Operation. 

Therefore, an alarm condition is acceptable to the Loader if the 
delta in the second word of the jump instruction at SW1 is set as 
follows: 

(SW1*1) - SW1A - SW1 - 1 
or 

(SW1+1) = SW IE - SW1 - 1 

If either of these conditions is met a jump is made to the location 
whose label is ALARMOK. At ALARMOK, the ASCII code for »*T" is 
placed in the location INPUT, and the location INPUT+1 is set to a 
-0. A jump is made to SW1F. 

If neither of the above conditions is met, a jump is made to the PRINT2 
error exit where the error indicator n E14 n is printed and loading 
terminates. 

385. 9. 1.4. 2 Reading ASCII Records from the Input Device 

Since ASCII records are read from the input device in the binary 
mode, they will not be processed as ASCII records unless the first 
character is an !, * M . The ASCII records should not exceed 120 
characters in length. For a maximum length record, the 120th char- 
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acter is expected to be a carriage return. 

The three steps involved in reading an ASCII record are the same 
as those in reading a binary record (as indicated in the 1st para- 
graph of item 28.9. 1.4. 1). Sequential ASCII records need not occur 
on a continuous external medium. The records are read and pro- 
cessed until the End of Load statement is read ( n *T carriage return”) 
or until the alarm condition arises. 

Refer to item 28.9.1.4.1 for the procedure to be followed should an 
alarm condition arise. 


3 C 19. 1.4.3 Types of ASCII Records 

1. *H, hex correction information and carriage return comprises a 

statement containing hexadecimal correction constants. 

2. *T carriage return is an End of Load Statement. 

3T.9.1.5 Branching to Process an Input Block 

The contents of the first word in the input buffer determines branch- 
ing. If the bits (INPUT)g set to the ASCII code for *, branching 
goes to either HEXrRO or EOLPRO. Otherwise branching is to process 
relocatable binary input and it is determined by the bits INPUT )^ 

All branching is with the 2 word jump instructions at SW1 using 
relative addressing. The particular branch chosen to process an 
input block depends on the address position of this jump instruction. 

3=1.9. 1.5.1 SW1A 


The address in the switch 1 jump instruction is set to SW1A by Pro- 
gram initialization. It is reset to SW1A each time an XFR block is 
to be processed. While switch 1 is set to SW1A only, the NAM 
blocks and ASCII input statements will be processed. The loader 
will transfer to the error exit PRINT2 for all other blocks received 
at this time. If the NAM block is received, the loader will reset 
the jump address in SW1 to SW1B and then jump to NAMPRO. If the 
HEX or EOL block is received, the loader will set the jump address 
in SW1 to SW1F and then jump either to HEXPRO or E0LPR0. 

The address NAMPRO, HEXPRO and E0LPR0 are referenced as external 
names by jump instructions within the LOADER Routine. 

3^9. 1.5.2 SW1B 

The address in the switch 1 jump instruction is set to SW1B whenever 
a NAM block is processed. 
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While jump switch 1 is set to SW1B the loader will process only 
the following block: RBD, BZS, ENT, EXT and XFR. The loader will 

branch to RBDPRO, BZSPRO, ENTPR0, EXTPRO or XFRPRO accordingly. 

The Loader will jump to the PRINT2 error exit each time a NAM, HEX 
or EOL block is received while the SW1 jump instruction has SW1B 
for a jump address. 

The addresses RBDPRO, BZSPRO, ENTPRO, EXTPRO and XFRPRO are 
referenced as external names by jump instructions within the 
LOADER routine. 

3^9. 1.5.3 SW1C 

The address of jump instruction SW1 is set to SW1C whenever an EXT 
block is received by the loader. 

While jump switch 1 is set to SW1C, the loader will process only EXT 
and XFR blocks. All others will cause the loader to take the PRINT2 
error exit. 

3^.9. 1.5.4 SW1F 

Subsequent to the most recent return jump to LOADER, a jump will be 
made to SW1F either when an ASCII input statement is read, or when 
an alarm condition has arisen which is acceptable to the Loader. If 
a jump is made to SW1F, one of the following two conditions will 
exist : 

CONDITION 1: The amount of unprotected core occupied by all of the 

relocatable binary programs has exceeded the size of 
the block of core from (LQWCOR)H-l to (TABLIM)-l * The 
location PRODIF contains the size of the absolute record 
on mass storage. The number of words in PRODIF is 
always a multiple of 96 (96 words/sector on disk). The 
number for the sector on disk at which storage of this 
information begins is a double precision number contained 
in $C0 and $C1. The portion of the command sequence 
yet in core is contained in the block of memory from 
(LOWCOR)-il to (TABLIM)-l . The exact amount of storage 
is from (LOWCOR)-fl to (CSQCTR)-l. The portion of the 
command sequence yet contained in core is written onto 
the mass storage at the end of portion of the command 
sequence already on mass storage. In order to dump 
this information onto mass storage, a return jump is 
made to the routine COREXT. NOTE: The COREXT rou- 

tine will only transfer a record length which is an 
integral multiple of 96. Therefore, with 96 words/ 
sector on mass storage, the odd sector (the last 1-95 
words yet in core) will not be transferred. In order 
to assure that the information in the odd sector will 
be written onto mass storage, the Q register is set 
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to the complement of the length of the storage yet 
held in core which is equal to (CSQCTR) - (LOWCOR)-l. 
The A register is set to the starting address which is 
equal to (LOWCOR)-l. The locations SECTNO & SECTNO+1 
contain the starting sector number. A return jump 
is made to MDRIV to dump the last 1-95 words. 


If (DATBAS) ^ 0, there exists a data reservation. 

The relative number for the last sector containing 
the command sequence is computed and recorded at 
DSECNO as follows: 

(PROD IF) . _ 

96 > 4 

If (Q) f 0, (A) +1 > A 

(A) > DSECNO 

If the contents of the Load Time Data Storage buffer is 
to be placed on mass storage, the relative value of 
the starting sector number for the transfer is in DSECNO. 
If there is no data reservation, DSECNO remains a zero. 


If (TABCTR) ^ 0, there is a Loader Table. If the Loader 
Table is to be recorded on mass storage, it is placed 
behind the sectors occupied by the Load Time Data 
Storage buffer. The relative value for the number of 
the 1st sector to be occupied by the Loader Table is 
recorded in TABSNO. It is computed as follows: 


(DATLEN) 

96 


A, Q 


If (Q) + 0, (A) 4- 1 > A 

(A) 4 (DSECNO) > TABSNO 



CONDITION 2 



If there is no data reservation, the sector number to 
be recorded in TABSNO is computed as follows: 

( PRODIF ) A n 

96 ’ g 

If (Q) + 0, (A) + 1 >A 

(A) > TABSNO 

The Load Time Data Storage Buffer and the Loader Table 
will be transferred temporarily to mass storage if 
the space they occupy in unprotected core is needed 
for other uses. (Refer to item 28.9.7 - E0LPR0.) 

The amount of unprotected core occupied by all of 
the relocatable binary programs has not exceeded the 
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size of the block of core from (LQWCOR)H-l to (TABLIM)-l . 
The entire command sequence storage is held within load 
time core and the value stored in PRODIF is zero. The 
address of the jump instruction at SW1 is set to SW1E, 
and a jump is made to SW1E. 


3=1*9. 1.5.5 SW1E 

When the address of jump instruction SW1 is set to SW1E, only ASCII 
input statements will be processed. Binary records will cause the 
Loader to take the PRINT2 error exit where the error indication 
n E3 n will be printed and loading terminates. 

3^9. 1.6 Exit from the LOADER Routine 

Exit from the LOADER Routine (other than exits due to error) is 
made whenever an ASCII input statement is read which is assumed by 
the Loader to be a monitor control statement. In this case, the A 
register is set to a value of -0 to indicate an error free exit, 
and the Q register is s&t to address constant n INPUT n (the beginning 
of storage for the ASCII control statement). Exit from the LOADER 
routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 


In the event it was necessary to take the PRTNT2 error exit, the 
ASCII code for the error number is placed in the A register. A 
jump is made to the PRINT2 error exit address in the following way: 

LABEL OPCODE ADDRESS REMARKS 

EQU PRINT2( 119) 

JMP- PRINT 2, I 

3T.9.1.7 Subroutines Used by and Internal to the LOADER Routine 

Zero is used to background the buffer for relocatable 

binary input to -0 prior to reading input from either 
the input or the communication devices. ZERO is 
entered with a return jump instruction. 

3*3.9. 1.8 Subroutines Used by and External to the LOADER Routine 

1. PRINT2 is used for error message output. Operation is termi- 

nated following printout. (See item 28.8.7.2.) 
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3*1.9. 2 


2. MDRIV 

3. I DR IV 

4. COREXT 


5. DPRADD 


is used to write command sequence storage onto mass 
storage. Also, it is used to write the Loader Table 
onto mass storage. (See item 28.7.3.) 

is used to read input records from the input device. 
(See item 28.7.1.) 

is used to dump core containing absolute records of 
command sequence storage onto the mass storage device. 
COREXT is entered to its entry point location in the 
constant table. (See item 28.8.10.) 

is used to compute the absolute value cf the starting 
sector number for all mass storage operations. 

DPRADD is entered via d location in the constant 
table. (See item 28.8.11.) 


The PRINT2, COREXT & DPRADD routines are entered via the entry point 
locations in the Constant Table. (See item 28.8.10.1 and 28.8.9.1). 

IDRIV and MDRIV are entered with return jump to their respective 
entry point addresses. 


NAMPRO 


NAMPRO is the routine which is used to process a NAM block. 

3*3.9. 2.1 Constant Table Storage Referenced by the NAMPRO Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


e 


A INPUT 

161 

BLANKS 

18 

COMBAS 

1 

COMLIM 

4 

CSQCTR 

183 

CSQLIM 

6 

DAT BAS 

2 

DATCTR 

182 

DATDIF 

184 

DATLEN 

177 

DATLIM 

5 

DATRES 

178 

DAT ST R 

180 

ENTPNT 

13 

LINK 

14 

LOWCOR 

179 

LWRLIM 

191 

INPCTR 

15 

INPUT 

29-88 

PROBAS 

3 

PROD IF 

171 

PROLIM 

' 181 

PROSTR 

185 
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QSAV 

90 


SW6 

28 


TABLIM 

7 

The 

constants ; 

are used as follows: 

1. 

A INPUT 

contains one of the entrance parameters for the 
current Loader Operation. (Refer to item 28.5.1.) 

2. 

BLANKS 

contains a constant used for editing when generating 
an output message. (BLANKS) = $2020 which is the 
ASCII code for 2 spaces. 

3. 

COMBAS 

contains the Common Storage relocation base. 

4. 

COMLIM 

contains the upper limit address of the common 
storage reservation (equal to last address + 1). 

5. 

CSQCTR 

contains the load time core upper limit address for 
the command sequence of the program whose NAM block 
is currently being processed. (The limit address is 
equal to 1 4- address of last word of program at 
load time.) 

6. 

CSQLIM 

contains the execution time core upper limit address 
for the command sequence of the program whose NAM block 
is currently being processed. (This limit address 
is equal to 1 + address of last word of program at 
execution time. ) 

7. 

DATBAS 

contains the relocation base for the Execution Time 
Data Storage Block Reservation. 

8. 

DAT CTR 

contains the upper limit address (equal to last 
address + 1) of the Load Time Data Storage Buffer. 

9. 

DATDIF 

contains the value equal to (DATBAS )- (DAT STR) . 

10. 

DATLEN 

contains the number of words set aside for a data 
reservation. 

11. 

DATLIM 

contains the upper limit address (equal to last address 
+ 1) of the Execution Time Data Storage Block Reservation 

12. 

DATRES 

contains the load time core address of the relocation 
base for the Execution Time Data Storage Block Reser- 
vation. 

(DATRES) = (DATBAS) + (DATLEN) 

13. 

DAT ST R 

contains the relocation base for the Load Time Data 
Storage Buffer. 

14. 

ENTPNT 

contains the address which is to be inserted into 
the 4th word of a Loader Table entry. 

15. 

LINK 

contains the value which is to be inserted into the 
5th word of a Loader Table Entry. 
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16. L0WC0R contains the lowest (toward 0) unprotected location 
available to the loader for storage of relocatable 
binary input less Is 

(LOWCOR) = (LWRLIM) if no data storage is declared 

(L0WC0R) = (LWRLIM)+(DATLEN) once a data area 
is reserved. The contents of LOWCOR becomes 
the new lower limit of Load Time Core. 


17. 

LWRLIM 

contains the lowest unprotected location -1 = 
lower limit of unprotected core. 

18. 

INPCTR 

has 2 uses: 



a) It is used as an address counter during a core- 

to-core data transfer operation, and 



b) it is set to the 1st storage address for a name 

to be entered into the Loader Table. 

19. 

INPUT 

is the 60 word buffer for storage of relocatable 
binary input. 

20. 

PROBAS 

contains the Execution Time Relocation Base for 
the program whose NAM block is currently being 
processed . 

21. 

PRODIF 

contains the word count for the amount of command 


sequence storage placed on the mass storage device 
during a load operation. (See item 28.8.10.3.) 

This value is also equal to the difference between 
the execution time relocation base of a program and 
its load time storage base providing there is no data 
b lock : 

(PR0BAS) - (PROSTR) - (PR0DIF) if (DATLEN) = 0. 
If there is a data block - 

( PR0DIF ) = (PROBAS) + (DATLIN) - (PROSTR) 


. 

CM 

CM 

PROLIM 

contains the execution time value for the upper 
limit address (last address + 1) of the odd sector 
(1-95 words in length) stored at bottom of load time 



core. 

23. 

PROSTR 

contains the load time storage base for the program 
whose NAM block is currently being processed. 

24. 

QSAV 

is used for temporary storage of operands in the 
Q register. 

25. 

SW6 

has two uses: 


a) It is initially cleared to zero. It is set to 
a -0 once an error condition arises due to 
overflow of available core. 
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b) Also, it is used for making Loader Table entries. 
SW6 is set to a 0 if the Loader Table entry is 
for an entry point name. It is set to a -0 
if the table entry is for an external name. 

26. TABLIM contains the base address for storage of the Loader 
table. 

3 ^. 9 . 2.2 Entry to the NAMPRO Routine 

The name NAMPRO is declared as an entry point name in the NAMPRO 
routine and is an external in the LOADER routine. Entry to the 
NAMPRO routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP NAMPRO 

3 C 19.2.3 Processing a NAM Block 

Common and data storage reservations are set aside when processing 
a NAM block. The base addresses for common and data storage are 
printed on the typewriter. In addition, the six character program 
name in the NAM block is printed on the typewriter together with the 
base address of the program. 

3 C } 9. 2. 3.1 Reserving Common Storage - NAMPRO 

The value equal to the number of words to be set aside for common 
storage is containeed in the second word of the input buffer, INPUT+1. 
If (INPUT+1) is zero, NAMPRO does not reserve common storage. Instead, 
the program transfers immediately to NAMPR1. 

If (INPUT+1) is non zero, NAMPRO looks at (COMBAS). Initially (COMBAS) 
contains zero, but once common storage is declared by a NAM block 
(COMBAS) contains the relocation base of the common storage. If 
no common storage reservation had previously been made, NAMPRO will 
reserve common storage by setting COMBAS to a value equal to (COMLIM) 

- (INPUT+1). This is otherwise defined as the difference between 
the upper limit of available core and the number of words in the 
common storage block. the Protected Common Flag is set the 

bounds are left alone. 

Once common storage has been reserved, NAMPRO must check for overflow 
of available core. There will be overflow of available core if the 
base address of common storage is not greater than the highest 
address used for command sequence storage: 

(CSQLIM)-l ^ (COMBAS) 
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If there is overflow of available core, a -0 will be stored in SW6 
and a jump is made to NAMPR1 where the NAM block is processed further. 
If 2 or more NAM blocks to be processed declare common storage, the 
largest declaration of common storage should be in the first NAM 
block to be processed. If (C0MBAS) is non zero, the size of the 
common storage declaration in the current NAM block must not exceed 
the size of the original block reservation: 

(C0MBAS)-f( INPUT+1) - (COMLIM) < 0 

If this conditicn is met, NAMPR0 proceeds to NAMPR1 to further pro- 
cess the NAM block. If not, NAMPRO transfers to the closed error 
subroutine, PRINT3, to print the error indication ,f E4 n . Upon return 
from PRINT3, NAMPRO transfers to NAMPR1 to further process the NAM 
block. 

3*1.9. 2. 3. 2 Reserving Data Storage - NAMPR1 

Data storage is reserved by the sequence of code beginning at 
NAMPR1. The value equal to the number of words to be set aside for 
data storage is contained in the third word of the input buffer, 
INPUTH-2. If (INPUT+2) is zero, NAMPRO does not reserve data storage. 
Instead, the program transfers immediately to NAMPR2. 

If (IN PUT +-2) is non zero, NAMPRO looks at (DATBAS). Initially DATBAS 
contains a zero. Once data is declared, (DATBAS) is set to the execu- 
tion time relocation base of data storage. NAMPRO will reserve data 
storage by assigning available space in the command sequence storage: 

1. (PRO BAS) > DATBAS 

2. ( DATBAS )+(INPUT+ 2) > DATLIM 

In other words: 

1. DATBAS is set to the address which would have been the base 
address of the next program to be loaded had no data storage 
been declared. 

2. The last word address of data storage+1 becomes the base 
address of the next program to be loaded. It also becomes 
the upper limit of available core. 

Once data storage has been declared, NAMPRO must check for the overflow 
of available core. If no common storage has been reserved, the address 
in DATLIM must not exceed the highest address in core: 

(DATLIM) £ (COMLIM) if (C0MBAS) = 0 

If common storage has been reserved, the address in DATLIM must not 
exceed the relocation base for common storage: 

(DATLIM) ^ (C0MBAS) if (C0MBAS) + 0 
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If neither of these conditions holds true, an error has occurred 
due to the overflow of available core. A -0 is stored in SW6, and 
a transfer is made to NAMPR2 to further process the block. 

Once a relocation base for data storage that does not cause overflow 
of unprotected core has been established, the following occurs: 

1. If fewer than 96 words of command sequence storage is contained 
in unprotected core, no dumping occurs on mass storage. This 
word count is obtained by 

(PROSTR) - (L0WC0R) -1 

If the word count is 96 or greater, the contents of unpro- 
tected core is transferred in integer multiples of 96 words 
to mass storage. If the number of words to be transferred 
is not an integer multiple of 96, the last 1-95 words are 
moved from their current position into the lowest area in 
unprotected core. This is all accomplished by the COREXT 
subroutine. 

Upon return, PROSTR contains the storage base for the next 
load time program. Also, upon return from COREXT, the 
address in PROLIM is increased by the length of the data 
storage block: 

(INPUT+2) + (PROLIM) * PROLIM 

2. The number of words to be set aside is recorded in DATLEN: 

( INPUT4- 2 ) > DATLEN 

3. A buffer is reserved for data storage (the Load Time Data 
Storage Buffer). This buffer is used by the Loader for 
storage of data relocatable command sequence input. The 
bounds of this buffer are set up by - 

a. (L0WC0R)+1 > DATSTR 

b. ( DATSTR )+( INPUT+2) — DATCTR, also 

c. (DTACTR) •> CSQCTR 

4. Between 0 and 95 words of command sequence (or the "odd 
sector") remains at the bottom of unprotected core following 
the dumping operation in step 1. The exact amount is equal 
to : 

(PROSTR) - (DATSTR) 

upon return from COREXT. Since the Load Time Data Storage 
Buffer is to occupy Storage at the bottom of unprotected 
core, the 0-95 words must be moved to storage cells above 
the Load Time Data Storage Buffer. This means that words 
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stored in the sequential locations frcm (DATSTR) to (PROSTR)-l 
must be moved to a block or core beginning at (DATCTR) and 
equal to (PROSTR) - (DATSTR) in length. If this length is 
zero, there is no core-to-core data transfer, and a jump 
is made to NAMJ12 (see step number 5). 

If (PROSTR) - (DATSTR) =£ 0, the core-to-core transfer is 
accomplished by the words from the source area to the desti- 
nation area, the last word first and the 1st word last. In 
order to implement this data transfer, the location PROSTR 
is used as the address counter for the source block, and 
INPCTR as the address counter for the destination block. 

The address counter INPCTR is set as follows: 

(CSQCTR) + (PROSTR) - (DATSTR) > INPCTR 

A test is made for overflow of load time core. There is 
overflow of Load Time core if one of the following conditions 
exist : 

a) Either (INPCTR) > (TABLIH) , or - 

b) (INPCTR) = (TABLIM) and (INPUT+3) + 0, where (INPUT+3) 

~ the amount of Load Time Core to be reserved in 
addition to the data area for the command sequence of 
the program whose NAM block is currently being pro- 
cessed. 

If a core overflow condition exists, a jump is made to 
0VFER1 (see step 7). If no ovwrflow condition has occurred, 
the transfer is made a word at a time until completion when - 

(PROSTR) = (DATSTR) 

5. The location LOWCOR is set to the new lower limit address 
for load time core. Prior to setting aside locations for 
data, the lower limit of load time core coincided with the 
lower limit of unprotected core: 

(LOWCOR) = ( LWRLIM) = ($F7) 

Subsequent to reserving space at the bottom of unprotected 
core for the Load Time Data Storage Buffer, the new lower 
limit of load time core becomes - 

(DATCTR) - 1 > LOWCOR. 

6. Space is reserved in execution time core for the Execution 
Time Data Storage Block Reservation (as previously defined 
in the 1st paragraph of 28.8.2.3.2): 

(PRO BAS) ^ DAT BAS 

(DATBAS) + (INPUT+2) > DATLIM 

(DATLIM) — — >PR0BAS 6c CSoLIM 
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A check is made for overflow of unprotected core as a result 
of reserving data. Overflow occurs if: 

a) (DATLIM) > (COMBAS) for (COMBAS) + 0 

b) (DATLIM) > (COMLIM) for (COMBAS) = 0 

c) (INPUT+3) + 0 and ( DAT LIM)=( COMBAS) for (COMBAS) + 0 

d) (INPUT+3) + 0 and ( DAT LIM)=( COMLIM) for (COMBAS) = 0 

where (INPUT+3) = length of program relocatable storage of 
this program. If overflow occurs a jump is made to OVFER1. 
(See step 7.) Otherwise, the program continues with step 

8 . 

7. At the location whose label is 0VFER1, the location SW6 
is set to a -0, and a jump is made to NAMPR2 to further 
process the NAM block. 

8. At the location whose name is NAMJ12, the load time core 
address for the Execution Time Data Storage Block Reservation 
is recorded in DATRES: 

(CSQCTR) y DATRES 

9. Space is reserved in the command sequence in Load Time Core 
for the Execution Time Data Storage Block Reservation. The 
difference between this block reservation and the Load Time 
Data Storage Buffer described in Step 3 is that the latter 
remains in core until the end of either Subroutine Load or 
a Program Load Operation. 

The space reserved for the data block in Step 3 will not 
necessarily remain in core. Along with the rest of the 
command sequence storage it may be transferred to mass 
storage. The space reserved at this time will eventually 
be filled in by the contents of the Load Time Data Storage 
buffer set aside in Step 3. (Refer to item 28.6.7.) 

Within step 9, the space for the Execution Time Data Storage 
Block Reservation is set aside by 

(DATRES) + ( INPUT+2) > CSQCTR 

(CSQCTR) > PROSTR 

10. The difference constant DATDIF is set to the difference 
between the starting address of the Execution Time Data 
Storage Block Reservation and the Load Time Data Storage 
Buffer: 

(DATBAS) - (DATSTR) — > DATDIF 
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11. An additional test is made for overflow of Load Time Core. 
Overflow of Load Time core occurs if 

(CSQCTR) (TABLIM) 

where (CSQLIM) at the time contains the storage limit for 
the Execution Time Data Storage Block Reservation in Load 
Time Core. Also, overflow of Load Time Core occurs if 

(CSQCTR) = (TABLIM) 

and 

(INPUT+3) + 0 

where (INPUT+3) = number of words to be reserved for loading 
the program whose NAM block is currently being processed. 

If overflow of Load Time Core has not occurred, proceed to 
step 13. If son, continue at step 12. 

12. If the command sequence word count in Load Time Core exceeds 
95, a return jump is made to the COREXT routine to transfer 
an integer multiple of 96 words to mass storage. Upon return 
from COREXT, the location CSQCTR is set to the limit address 
in Load Time Core for the Execution Time Data Storage Block 
Reservation: 

(PR0STR) + (INPUT+2) CSQCTR 
Proceed to step 13. 

If the command sequence word count in Load Time Core is 95 
words or less, NAMPR0 reacts as if overflow of unprotected 
core has occurred. This is because the contents of Load 
Time core must be transferred to mass storage to make room 
for loading another program. However, in the middle of a 
Loading Operation, only an integer multiple of 96 words may 
be transferred to mass storage. Therefore, there isn’t enough 
room in load time core to load another program or to reserve 
space for data. 

If the overflow condition exists, a jump is made to 0VFER1. 
(See step 7.) 

If, to begin with, there was no overflow of Load Time Core, 
proceed to step 13. 

13. An entry is made in the Loader Table. The name ’’DATBAS” is 

entered into the Loader Table as an entry point name. The 
entry point address is equal to (DATBAS). The sign bit of 

W0RD2 of this entry is set to a 1 as if this Loader Table 

entry originated in the Table of Presets. The Loader 

Table entry is made using the TABSTR routine. (Refer to 

item 28.8.6.) 
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Prior to entering TABSTR, the following occurs: 

a) the location INPCTR is set to the 1st word address 

for storage of the name "DATBAS" 

b) -0 >LINK 

c) (DATBAS) >ENTPNT 

d) 0 >SW6 

Upon return from TABSTR, NAMPRO continues processing the 
NAM block at NAMPR2. 

3*1.9. 2.3. 3 Reserving Command Sequence Storage - NAMPR2 

Program Relocatable Command Sequence Storage is reserved by the 
sequence of coding beginning at NAMPR2. The value equal to the number 
of words to be set aside for program relocatable command sequence 
storage is contained in the fourth word of the input buffer, INPUT+3. 
If (INPUT+3) is zero, it is assumed that there is no program reloca- 
table command sequence storage for the relocatable binary program 
whose NAM block is currently being processed. A transfer is made 
immediately to NAMPR3. 

If (INPUT+3) =£ 0, then the program whose NAM block is currently being 
processed has an execution time upper limit address equal to 

(PROBAS) - (INPUT+3). 

If the upper limit for this storage exceeds the upper limit of avail- 
able core, an overflow error has occurred. The upper limit of core 
is either the common storage relocation base if common storage had 
been reserved, or the highest unprotected address in core+1 if no 
common storage had been reserved. NO overflow has occurred if either 

( PROBAS )+( INPUT+3) c (COMBAS) if (COMBAS) f 0 

or 

(PROBAS )+( INPUT+3) (COMLIM) if (COMBAS) = 0. 

If overflow occurs, the location SW6 is set to a -*0, and a jump is 
made to NAMPR3. If no overflow occurs, the execution time upr-er 
limit for program storage is fixed in CSQLIM as follows: 

If (CSQLIM) <( PROBAS )+( INPUT+3), (PROBAS )+( INPUT+3) CSQLIM. 

The load time upper limit of program storage is fixed by - 
(CSQLIM) - (PRODIF ) ^ CSQCTR 

A check is made for overflow into the Loader Table. This occurs 
when 

(CSQCTR) > (TABLIM) — 

Ten Dummy entries are added to prevent a Loader table 
overflow. 
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If Loader Table overflow does not occur, a jump is made to NAMPR3. 

If Loader Table overflow is the case, a check is made to see if the 
amount of unprotected core available to for Loader input is less than 
96 words, the size of 1 sector on mass storage. If 

(CSQCTR) - (L0WC0R) - 1 > 96, 

the command sequence still in core is entered onto mass storage by 
a return jump to the COREXT routine. If 

(CSQCTR) - (L0WC0R) - 1<96 

it is considered to be overflow of unprotected core, and the location 
SW6 is set to a -0. Processing of the NAM block continues at NAMPR3. 

3^* 9. 2.3.4 NAMPR3 - Print Program Name and Execution Time Relocation Base 

A test is made to determine if the current Loader Operation is a 
Program Load Operation. If this is a program Load Operation, bits 0 
and 1 of the entrance parameter in AINPUT are set to a binary 10. 

The program name can execution time relocation base will not be 
printed, and a jump is made to the location OVFTST to test for core 
over f low. 

If the Loader Operation is not Program Load, the name and execution 
time relocation base of the program whose NAM block is currently being 
processed, will be printed. The program name is recorded at the loca- 
tions INPUT+4, INPUT+5 and INPUT+6. Spaces are recorded at INPUT+2, 
INPUT+3 and INPUT+7 . The address "INPUTS' is placed in the Q 
register and the 16 bit value = (PROBAS) is placed in the A register. 

A return jump is made to the PRINT4 routine (refer to item 28.8.7.3) 
to list the name and relocation base of the program. During the opera- 
tion of PRINT4, the 16 bit binary number in A will be converted to the 
ASCII code for 4 hex digits. The 4 hex digits will be recorded in the 
output area at locations INPUT4-8 and INPUT+9. The program name and 
execution time relocation base appear on a listing as 

SSSSXXXXXXSShhhh 

where - 

1. S indicates a space, 

2. X indicates an alphanumeric character (A-Z) or (0-9), and 

3. h indicates a hexadecimal digit (0-9) or (A-F). 

3^9. 2.3. 5 OVFTST - Test for Core Overflow Condition 

At OVFTST, a check is made for overflow of unprotected core (if SW6 
= -0.) If no overflow has occurred, a jump is made to NXTINP to read 
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and process the next input block. If overflow has occurred, an error 
indication of tf E5 n is printed using the PRINT3 subroutine. (Refer 
to item 28.8.7.1.) No more relocatable binary input blocks are read 
as Loading terminates. The error exit parameters will be recorded in 
AINPUT and QINPUT. A jump is made to TABCHK, an entry point in the 
BRANCH routine where the name TABCHK is referenced in NAMPRO. 

At TABCHK the Loader Table is examined for unpatched externals. The 
Procedure has been described previously in item 28.6.6.5* 

3^.9. 2. 4 Exit From NAMPRO 


If no core o/erf low had occurred, exit from NAMPRO is made with the 
following instruction: 


LABEL OPCODE ADDRESS 


REMARKS 


JMP- NXTINP, I JUMP TO READ NEXT INPUT BLOCK 

EQU NXTINP( 123) 


If overflow of core had occurred, exit is made from NAMPRO with the 
fol lowing instruction: 


LABEL OPCODE 

JMP 


ADDRESS REMARKS 

TABCHK 


where TABCHK is declared as an external in the NAMPRO routine and 
as an entry point name in the routine whose name is BRANCH. 

3*19.2.5 Subroutines Used by and External to NAMPRO 


31 * 9.3 


1. PRINT3 

2. PRINT4 

3. COREXT 
6. TABSTR 


is used to print error indications. (Refer to item 
28.8.7.1.) 

is used to print the program name and execution time 
relocation base of the program currently being read 
in. (Refer to item 28.8.7.3.) 

is used to dump the command sequence storage place 
in load time core by the Loader onto the mass storage 
unit containing the scratch area. The amount of 
data transferred during any one operation of COREXT is 
an integer multiple of 96. (Refer to item 28.8.10.) 

is used to make a Loader Table entry when data storage 
is reserved by the program whose name block is currently 
being processed. The name n DATBAS M is placed in the 
Loader Table as an entry point name. The entry point 
address = (DATBAS). (Refer to item 28.8.6.) 


RBDBZS 


RBDBZS is the routine which is used to process RBD and BZS blocks. 
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Constant TaDle Storage Referenced by RBDBZS 


NAMES USED III DOCIMENTAT ION STORAGE POSITION IN CONSTANT TABLE 


ASAV 

llXCRT 

KSCW 

CMC1AS 

CDURT1 

CSQLIM 

QAT1AS 

DAT0IF 

DATLEN 

DATLIM 

ENDSV 

IMPCTR 

IlfPRli 

IMPW1D 

IHPXCO 

NGRLSW 

PR01AS 

QSAV 

WRDCNT 


89 
27 
26 

1 

25 

2 

184 

177 

5 

8 

15 

11 

10 

117 

9 

3 

90 
24 


The constants are used in the following way: 


1. ASAV 

2. 1LKCNT 

3. BZSSW 

4. COMAS 

5. COUNT 1 

6. CSQLIM 

7. DATEAS 

8. DATDIF 


is used for temporary storage of operands in the A 
register . 

contains the word count for number of sequential loca- 
tions to be set to zero in a BZS block entry. 

is set to a 0 if an RBD block is to be processed. Also, 
it is set to a -1 if a BZS block is to be processed. 

contains the common storage relocation base. 

is used as a loop counter by the NXTWRD subroutine. 
(Refer to item 28.9.3.6.1.) 

contains the execution time core limit address (upper 
limit) for the command sequence of the program currently 
being loaded. (This is equal to 1 + address of last 
word of program at execution time.) 

contains the relocation base for the Execution Time 
Data Block Reservation. 

contains the value equal to (DATBAS) - (DATSTR) where 
(DATSTR) = the relocation base for the Load Time Data 
Storage Buffer. 
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9. 

DATLEN 

contains the number of words set aside for a data 
reservation. 

10. 

DATLIM 

contains the upper limit address (equal to last 
address + 1) of the Execution Time Data Storage 
Block Reservation. 

11. 

ENDSW 

is the end of block switch. It is set to a 1 when the 
last entry in the input block (either RBD or BZS) is 
being processed. Contains a zero at all other times. 

12. 

INPCTR 

contains the execution time address assigned to a word 
from the command sequence input. 

13. 

INPREL 

contains in bits 0 and 1, the information which deter- 
mines which type of address relocation is assigned to 
a command sequence word from an input blov k entry. 

14. 

INPWRD 

contains a command sequence word from an input block 
entry. 

15. 

INPXCO 

contains the address constant INPUT where INPUT is the 
1st location of the area for storage of relocatable 
binary input blocks read by the Loader. 

16. 

NGRLSW 

is the negative relocation switch. It is set to a 1 
if negative address relocation is assigned to a word 
from an input block entry. It is set to a 0 if the 
address relocation is positive, or if there is no 
address re location. 

17. 

PROBAS 

contains the Execution Time Relocation Base for the 
program currently being loaded. 

18. 

QSAV 

is used for temporary storage of operands in the Q 
register . 

19. 

WRDCNT 

is used as an address counter to reference words in the 
input block (either RBD or BZS) entries. 


3H9.3.2 Entry to RBDBZS 

Both names, RBDPRO and BZSPRO are declared as entry point names in the 
RBDBZS routine and as externals in the LOADER routine. Entry to 
either of these routines is as follows: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP 

RBDPRO 



JMP 

BZSPRO 


RBDPRO 





Command sequence data from an RBD block is placed in core by RBDPRO. 
The first entry in the RBD block contains the starting address for 
loading the command sequence data in the block together with its 
address relocation byte. Subsequent entries in an RBD block contain 
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the command sequence words to be recorded at consecutive locations 
beginning with the starting address. The address relocation byte in 
an RBD entry is 4 birs in size. The leading bit of all but the reloca- 
tion byte for the last entry in the block is set to zero. The leading 
bit of the relocation byte for the last entry in'; the block is set to 
a one. 

Initialization for RBD Block Processing at RBDPRO 

The jump instructions SW2 and SW3 are two word jump instructions usiiqg 
relative addressing. The address in their respective second words 
are set during program execution. As part of initialization for 
RBDPRO, the address of jump instruction SW2 is set to SW2A. The 
address of jump instruction SW3 will be set to SW3A. Both the loop 
counter named C0UNT1 and the switch named BZSSW are set to zero. The 
address counter WRDCNT is set to the first word address of the input 
buffer, "INPUT". Each of these three locations is referenced by a 
closed subroutine called NXTWRD. This subroutine is used by both 
RBDPRO and BZSPRO in order to extract all the information pertinent 
to one entry in the input buffer. The details of the organization 
of the NXTWRD subroutine are described in item 28.9.3.6.1. 

S'! 9. 3. 3. 2 Starting Address for Command Sequence Storage 

A return jump is executed to NXTWRD to extract the starting address 
for command sequence storage from the input buffer. Upon return from 


NXTWRD - 



i. 

INPWRD 

contains the value for the 

starting address. 

2. 

INPREL 

contains a 2 bit relocation 

byte. 

3. 

NGRLSW 

is set to zero. 


4. 

ENDSW 

is set to zero. 



The starting address may be either program relocatable, data storage 
relocatable or absolute depending on bits 0 and 1 of INPREL: 

1. If (INPREL) = 00, (INPWRD) is an absolute value. 

2. If (INPREL) = 01, (INPWRD) is a value relative to the value for 
the execution time program relocation base of (PROBAS). 

3. If (INPREL) = 11, (INPWRD) is a value relative to the value for 
the relocation base of the Execution Time Data Storage Block 
Reservation or (DATBAS). 

If the starting address is program relocatable, the addresses of the 
jump instructions SW2 and SW3 contains the values to which they were 
set as described in item 28.9.3.3.1. If the starting address is data 
storage relocatable, the addresses for the jump iistructions SW2 and 
SW3 are reset to SW2C and SW3C respectively. The starting address for 
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relocation by a return jump to the ADJUST subroutine. (Refer to 
item 28.9.3.6.2.) 

If the starting address is either data relocatable or absolute, and- 
if the address of the jump instructions stored at SW2 and SW3 are 
to be changed in the manner stated above, then - 

the addresses are changed prior to entering the ADJUST subroutine. 

Upon return from the ADJUST subroutine, a jump is made to SW2. 

Branching occurs according to the address in the jump instruction 
at SW2 as follows: 

1. Branching to SW2A: The execution time limit address for 

program relocatable input or (CSQLIM) is placed in ASAV. 

The value = (DATLEN )- (PRODIF) is placed in QSAV, and a 
jump is made to RBDPR1. 

2. Branching to SW2B: The execution time limit address for 

data storage = (DATLIM) is placed in ASAV. The value in 
DATDIF is placed in QSAV, and a jump is made to RBDPR1. 

3. Branching to SW2C: The limit address communic ation region 

storage = M $E4 f! is placed in ASAV. The location QSAV is 
cleared to zero, and a jump is made to RBDPR1. 

The significance of the values placed in ASAV and QSAV will be described 
in item 28.9.3.3.3. 

3^19.3.3.3 RBDPR1 - Command Sequence Words for RBD Blocks 

An entry containing a command sequence word is extracted from the input 
block by a return jump to the NXTWRD routine. Upon return from NXTWRJDt - 

1. INPWRD contains the word of the command sequence. 

2. INPREL contains the 2^ and 2^ bits of the 4 bit relocation 
byte. 

2 

3. NGRLSW contains 2 bit of the 4 bit relocation byte. 

3 

4. ENDSW contains the 2 bit of the 4 bit relocation byte. 

The location ENDSW will always contain a zero except when the last 
entry in the block is to be processed. It will then contain a value 
of 1. The location NGRLSW will contain a zero if the word in INPWRD 
is either a 16 bit absolute value or bits 0-14 = a relative value with 
positive address relocation. NGRLSW will contain a value of 1 if the 
value of bits 0-14 of the location INPREL will be set to one of 4 
values : 

1. (INPREL) = 00 if (INPWRD) is an absolute value. 

2. (INPREL) = 01 if (INPWRD) is a value relative to the execution 
time program relocation base or (PROBAS). 
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3. (INPREL) = 10 if (INPWRD) is a value relative to the common 
storage relocation base of (COMBAS). 

4. (INPREL) = 11 if (INPWRD) is a value relative to the reloca- 
tion base for the Execution Time Data Storage Block Reser- 
vation* 

Adjusting the contents of INPWRD for address relocation is accomplished 
in the following way: 

TYPE OF RLCTN NGRLSW INPREL VALUE ADJUSTED FOR RLGTN 


ABSOLUTE 

0 

00 

(INPWRD) 

POS PROGR. RLCTN 

0 

01 

( INPWRD )+( PRO BAS) 

POS COM STOR RLCTN 

0 

10 

( INPWRD )+( COMBAS) 

POS DAT STOR RLCTN 

0 

11 

( INPWRD )+( DAT BAS) 

NEG PROG RLCTN 

1 

01 

( INPWRD)- (PROBAS) 

NEG COM STOR RLCTN 

1 

10 

(INPWRD) -(COMBAS) 

NEG DAT STOR RLCTN 

1 

11 

( INPWRD) -(DATBAS) 


Where negative relocation is involved, the value in INPWRD is actually 
the one’s complement of a 15 bit number. This means that negative 
relocation is actually 

-(relative value 4 base address) 

or the complement of positive relocation. The address arithmetic 
necessary for adjusting a relative value for relocation is accomplished 
by the closed subroutine ADJOVF. The closed subroutine is entered by 
a return jump to a location in the constant table. (Refer to item 
28.8.3.) 

The address in INPCTR is the execution time address for the command 
sequence word stored in INPWRD. Upon return from ADJOVF, storage of 
the word in INPWRD takes place as follows: 

If (( INPCTR) )<(ASAV), (INPWRD) — > (INPCTR) - (QSAV) , 

Storage occurs if the execution time storage address is less than 
the limit address. The address in INPCTR is increased by 1. If 
(ENDSW)=0, a jump is made back to RBDPR1 to process the next word in 
the RBD block. If (ENDSW)^ a jump is made to NXTINP to process the 
next input block. 

If (INPCTR) 2 (ASAV), the input has exceeded the limits of the area 
reserved for it. Branching occurs according to the address in the 
jump instruction as SW3 as follows: 


4 ^ 
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1. Branching to SW3A: An error has occurred due to overflowing 

the amount of space reserved in esecution time core for 
program relocatable command sequence currently being loaded. 
An error indication of ,! E5 M is printed using the PRINT3 
subroutine.* (See item 28*7*1.) 

2. Branching to SW3B: An error has occurred due to overflowing 

the amount of space reserved for the data block. An error 
indication of n E7 lf is printed using the PRINT3 subroutine. 

3. Branching to 3W3C: An error has occurred due to overflowing 

the amount of space in the unprotected area of the communica- 
tion region. An error indication of M E6 n is printed using 
the PRINT3 subroutine. 

If one of the above error messages is printed, no more input blocks 
are read and the Loading Operation terminates. The error exit infor- 
mation is recorded and a jump is made to TABCHK. (Refer to item 
28.9.3.6.) 


3^ 9.3.5 BZSPRO 

Each entry in a BZS block contains the following information: 

1. A starting address which is the first word address of a 
block of core to be cleared to zero by the loader. 

2. A relocation byte for the starting address. 

3. An absolute number which is the size of the block of core 
to be cleared to zero by the loader. 

The relocation byte for each entry in a BZS block is 4 bits in size. 
The leading bit of all the relocation byte for the last entry in the 
block is set to zero. The leading bit of the relocation byte for 
the last entry in the block is set to a one. 

3^9. 3. 4.1 Initialization for BZS Block Processing 

As part of initialization for BZSPRO, the address counter WRDCNT is 
set to the 1st word address of the storage area for the BZS block, 

= "INPUT". The switch named BZSSW is set to a -0 in order to process 
a BZS block. 

3«=l9.3.4.2 BZSPR1 - BZS Entries 

The jump instructions SW2 and SW3 are two word jump instructions using 
relative addressing. The addresses in their respective second words 
are set during program execution. Each time a jump is made to the 
location BZSPR1 , the address in the jump instruction at SW2 is set 
for SW2A, and the address in the jump instruction at SW3 is set for 
SW3A. 
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The loader executes a return jump to NXTWRD to extract an entry from 
the BZS block. Upon return from NXTWRD the information from the 
entry is stored in the following way: 

1. INPWRD contains the starting address. 

2. INPREL contains the 2^ and 2* bits of the 4 bit relocation 
byte. 

2 

3. NGRLSW contains the 2 bit of the 4 bit relocation byte. 

3 

4. ENDSW contains the 2 bit of the 4 bit relocation byte. 

5. BLKCNT contains the size of the block to be cleared to zero 
by the Loader. 

The location ENDSW will always contain a zero except when the last 
entry in the block is to be processed. It will then contain a value 
of 1. The location NGRLSW will always contain a zero since the word 
in iINPWRD is either a 16 bit absolute value or a 15 bit relative 
value with either positive program or data storage relocation. The 
location INPREL will be set to one of 3 values: 

1. (INPREL) = 00 if (INPWRD) is an absolute value. 

2. (INPREL) = 01 if (INPWRD) is a value relative to the value 
for the execution time program relocation base or (PROBAS). 

3. (INPREL) = 11 if (INPWRD) is a value relative to the value 
for the relocation base of the Execution Time Data Storage 
Block Reservation. 

3*3*9. 3. 4. 3 Relocation for Starting Address 

A return jump is executed to the closed subroutine, ADJUST, to obtain 
the absolute value for a relative address in INPWRD for relocation. 
(Refer to item 28.9.3.6.2.) Upon return starting from ADJUST - 

1. INPCTR contains the starting address for command sequence 
storage adjusted for relocation. 

2. If the starting address for the BZS block is relative to the 
execution time data storage relocation base, the address in 
the jump instruction SW2, originally set to SW2D is reset 

to SW2E, while that in SW3 is set to SW3E. 

3. If the starting address for the BZS block is absolute, the 
address in jump instruction SW2, originally set to SW2D 

is reset to SW2F, while that in SW3 is set to SW3F . 

3*3. 9. 3. 4. 4 Zero Storage in BZS Block 

The Loader proceeds to store zero at all execution time locations 
starting with the address in INPCTR and terminating with the address 
equal to (INPCTR) + (BLKCNT)- 1. 
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A jump is made to SW2 where branching occurs according to the address 
in the jump instruction at SW2 as follows: 

1. Branching to SW2D: T^e execution time limit address for 

program relocatable input or (CSQLIM) is placed in ASAV. 

The value = (DATLEN)-(PRODIF) is placed in QSAV, and a 
jump is made to BZSPR2. 

2. Branching to SW2E : The execution time limit address for 

data storage = (DATUM) is placed in ASAV. The value = 
(DATDIF) is placed in QSAV, and a jump is made to BZSPR2. 

3. Branching to SW2F : T^e limit address for communication region 

storage = n $E4 n is placed in ASAV. The location QSAV is 
cleared to zero, and a jump is made to BZSPR2. 

At BZSPR2 a test is made to see if the storage address in 
INPCTR is greater than or equal to the storage limit address 
in ASAV. If not, the load time storage location = (INPCTR) 

- (QSAV) is cleared to zero. The loop for storing zero in 
a location is repeated, increasing the contents of INPCTR 
by 1 and decreasing the contents of BLKCTR by 1 until - 

a. Either (BLKCTR)=0 in which the entire block of core is 
cleared to zero, or 

b. (INPCTR) = (ASAV) in which case the storage limit address 

has been exceeded. N 

If b is the case, branching occurs as SW3 as follows: 

1. Branching to SW3D will occur if the starting address in the 
BZS entry is relative to the execution time program reloca- 
tion base. The address M SW3D” and flSW3A M are identical. 

2. Branching to SW3E will occur if the starting address is 
relative to the relocation base for the data block. The 
addresses M SW3B n and ?? SW3E ,f are identical. 

3. Branching to SW3F will occur if the starting address is 
absolute. The address "SW3F ,f and "SW3C" are identical. 

If a 2 is the case, the overflow condition has not occurred, and 
a jump is made to BZSPR3. At BZSPR3 , a test is made to see if the 
last entry in the BZS block has been processed. If (ENDSW)=0, 
a jump is made to BZSPR1 to process the next entry in the block. 

If (ENDSW)t^O, a jump is made to NXTINP to read the next input block. 

3*18.3.5 Exit from RBDBZS 

Exit from either routine is made with the following instruction: 


LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP- 

NXTINP,! 

JUMP TO NXTINP TO READ 


EQU 

NXTINP( 123) 

NEXT INPUT BLOCK 


ta i tr-i 
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If exit from either routine is caused by the occurrence of an overflow 
condition, exit from the RBDBZS routine is made with the following 
instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP TABCHK 

where the name TABCHK is referenced as an external within RBDBZS and 
as an entry point in the BRANCH routine. 

3^.9. 3. 6 Subroutines Used by and Internal to RBDPRO and BZSPRO 

There are two subroutines assembled into the same program with RBDPRO 
and BZSPRO. These are NXTWRD and ADJUST. 

3*=!. 9.3.6. 1 NXTWRD 

This subroutine is used to extract an entry from either an RBD block 
or a BZS block. An RBD block entry consists cf a command sequence 
word together with its 4 bit relocation byte. A BZS block entry 
consists of a starting address for a BZS block reservation together 
with its 4 bit relocation byte and an absolute number which is the 
size of the BZS block reservation. If entry to NXTWRD is from RBDPRO, 
the switch BZSSW has been set to zero. If entry to NXTWRD is from 
BZSPRO, the switch BZSSW has been made non zero and negative. 

If BZSSW is zero, NXTWRD will process an entry of the input block in 
the following ways: 

1. Of a 4 bit relocation byte (bits 0-3) right to left, 

a. bits 0 and 1 are placed in INPREL, 

b. bit 2 is placed in NGRLSW, and 

c. bit 3 is placed in ENDSW. 

2. The command sequence word is placed in INPWRD. 

If BZSSW is non zero, NXTWRD will process an entry of the input block 
in the following way: 

1. Of a 4 bit relocation byte (bits 0-3 right to left): 

a. bits 0 and 1 are placed in INPREL, 

b. bit 2 is placed in NGRLSW, and 

c. bit 3 is placed in ENDSW. 

2. The starting address for the BZS block reservation is placed 
in INPWRD. 
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3. The size of the BZS block reservation is placed in BLKCNT. 
3F1.9.3.6.2 ADJUST 


r 



The ADJUST subroutine is used by BZSPRO and RBDPRO to 

1. Determine the relocation base for the starting address of 
the BZS reservation in each entry of the command sequence, 
and 

2. If the address is not absolute, to increase the relative 
value by the appropriate relocation base. 

Upon entry to ADJUST, the address of concern is in INPWRD. All 15 
bit address arithmetic is carried out of the ADJOVF subroutine. Prior 
to entering ADJOVF, the A register contains the relative address 
contained in INPWRD. The relocation base is in the Q register. Upon 
return from ADJOVF, the result is placed in INPCTR. 

Address relocation is handled in one of three ways: 

1. Absolute Addresses = No Relocation 

No address relocation is necessary for absolute address. 

The contents of INPWRD is placed in INPCTR: 

(INPWRD) ^ INPCTR 

If the ADJUST routine determines that the value for the 
absolute starting address is either less than n $C5 n or 
greater than M $E3", a jump is made to SW3 to print the appro- 
priate error indication and then to proceed to the error 
exit. If ADJUST determines that the absolute starting address 
was within the bounds of $C5-$E3, the addresses for the jump 
instructions at SW2 and SW3 are reset as follows: 

a. If entry to ADJUST was from RBDPRO, 

SW2C > SW2 , and 

SW3C >SW3. 

b. If entry to ADJUST was from BZSPRO, 

SW2F >SW2, and 

SW3F — > SW3 . 

Following this a jump is made from ADJUST. 

2. Program Relocatable Addresses 

Following a return transfer to ADJOVF, the relative address 
is increased by the command sequence relocation base, and 
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the result is placed in INPCTR: 

(INPWRD) + (PR0BAS) — > INPCTR 

A jump is made to exit from ADJUST* 

3. Data Storage Relocatable Addresses 

Following a return transfer to ADJOVF, the relative address 
is increased by the data storage relocation base, and 
the result is placed in INPCTR: 

(INPWRD) + (DATBAS) > INPCTR 

a. If entry to ADJUST was made from RBDPR0, 

SW2B >SW2, and 

SW3B > SW3. 

b. If entry to ADJUST was made from BZSPR0, 

SW2E >SW2, and 

SW3E > SW3. 


3T*9.3.8 Subroutines Used by and External to RBDPR0 and BZSPRO 



1. 

PRINT3 

is used for printing error indications. (Refer to 
item 28.8. 7.1.) 


2. 

ADJOVF 

is used by ADJUST for address arithmetic. (Refer to 
item 28.8.2.) 

3T.9.4 

ENTEXT 



The ENTEXT subprogram of the Loader is used to process EXT and ENT 
blocks. 

3^9.4.! Constant Table Storage Referenced by ENTEXT 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


DATLEN 

177 

ENTPNT 

13 

INPCTR 

15 

INPWRD 

10 

INPXCC 

122 

LINK 

14 

NGRLSW 

9 

PROBAS 

3 

PRO DIF 

171 

PROLIM 

181 

SW6 

28 

TABLIM 

7 
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3^.9. 4. 2 


The constants are used in the following way: 


1. DATLEN 

2. ENTPNT 

3. INPCTR 

4. INPWRD 

5. INPXCC 

6. LINK 

7 . NGRLSW 

8 . PRO BAS 

9. PROD IF 

10. PROLIM 

11. SW6 

12. TABLIM 


contains the number of words set aside for the data 
reservation. 

contains the address (or the one’s complement thereof) 
which is to be inserted into the 4th word of a Loader 
Table entry. For a LINK1 operation (patching), it 
contains an entry point address. For a LINK2 operation 
(linking), it contains the link address from the EXT 
block entry. 

is used as an address counter to reference entries in 
the input block (either ENT or EXT). 

is used as a temporary storage location. 

contains the address constant = n INPUT-3 n . 

contains the address to be inserted into the 5th word 
of a Loader Table entry. For either a LINK1 operation 
(patching) or a LINK2 operation (linking) it contains 
the link address from the Loader Table entry. 

is set prior to LINK1 operation to determine mode of 
addressing for patching (either relative or absolute). 

contains the execution time relocation base for the 
program currently being loaded. 

contains the word count for the amount of command 
sequence recorded on the mass storage unit containing 
the scratch area. 

contains the execution time value for the upper limit 
(last address + 1) of the odd sector (1-95 words long) 
stored at the bottom of Load Time Core. 

is set to 0 to enter an entry point into the Loader 
Table, or it is set to a - 1 to enter an external. Also, 
as a result of a Loader Table Search, it contains a 
positive value which is added to (TABLIM) in order 
to locate a Loader Table entry with a name to match 
an input block entry. 

contains the base address of the Loader Table. 


Entry to ENTEXT 


The names ENTPRO and EXTPRO are declared as entry point names in the 
ENTEXT routine and as external names in the LOADER Routine. Entry 
to either of these routines is as follows: 
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LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP 

ENTPRO 



JMP 

EXT PRO 



3 % 9.4.3 ENTPRO 


An entry in an ENT block contains a 6 character entry point name and 
a 15 bit entry point address. ENTPRO will perform one of three 
functions based on the follwoing conditions: 


CONDITION 1: is that there exists no entry in the Loader Table which 

contains a 6 character name to match the entry point 
name from the input block. ENTPRO will enter the entry 
point name and address into the loader table. W0RD5 
of the Loader Table entry is set to -0. 

CONDITION 2: is that there exists an entry in the Loader Table 

which contains a 6 character entry point name which 
matches the 6 character entry point name in the input 
block. The loader performs a special error operation 
where there is duplication of entry point names. 

CONDITION 3: is that there exists an entry in the Loader Table 

which contains a 6 character name for an external which 
matches the entry point name in the input block. The link 
address in WORD 4 of the Loader Table entry points to 
the beginning of a string of link addresses. The link 
addresses in this string are contained in command sequemce 
storage entirely within the limits of Load Time Core, 
exclusive of the area at the bottom of Load Time Core 
containing the 1-95 words of the odd sector. In other 
words, the execution time value for each link address 
in the string must be greater than or equal to (PROLIM). 
ENTPRO using the LINK1 routine, will perform the necessary 
link operation to patch locations referencing this external 
name with the entry point address. 


CONDITION 4: is that there exists an entry in the Loader Table which 

contains a 6 character name for an external which 
matches the entry point name in the input block. The 
link address in WORD 4 of the Loader Table entry points 
to the beginning of a string of link addresses. The 
link addresses in this string are contained in command 
sequence storage which is recorded either entirely or 
in part on mass storage. In other words, in the link 
address string for this external name there is at least 
one link address whose execution time value is less 
than (PROLIM). 
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Using the TABSTR routine, ENTPRO will enter the entry 
point name and address in the input block into the 
Loader Table. WORD 5 of this Loader Table entry will 
contain the address pointing to WORD 4 of the entry 
containing the matching external name. A linking 
operation similar to that described for condition 3 
will be performed, at the time an EOL record is read 
by the Loader. (See item 28.9.7.) 

3*19.4.3.1 ENTPR1 - ENT Block Entries 

ENT block entries are four words each. The first three words contain 
a 6 character entry point name. (Fewer than 6 characters in a name 
means that the ASCII code for spaces will be used as fill at the right 
end of the name.) If the entry point address is program relocatable, 
the fourth word of the entry will contain a positive number which is 
the relative 15 bit entry point address. If the entry point address 
is absolute, the fourth word of the entry will contain a negative 
number which is the one's complement of the 15 bit entry point 
address. The end of the input block is marked by a word of either 
+0 or -0 in place of an entry point name. 

INPCTR is used by the closed subroutine NXTNAM (see item 28.9.4.6.1) 
to extract entries from the ENT block. Initially INPCTR is increased 
by 4 upon each entry to NXTNAM from ENTPRO. This will set INPCTR to 
the first word address of the next entry in the ENT block or, as 
a result of the return jump to NXTNAM either - 

la. -((INPCTR)+3) ENTPNT 
if ((INPCTR)+3) 0, or - 

lb. ( (INPCTR )+3) + (PROBAS) ENTPNT 
if ((INPCTR4-3) _ 0, and 

2. (INPCTR) + 4 INPCTR 

There will be no return from NXTNAM if ((INPCTR)) = 0. Instead, 
there will be a jump from the NXTNAM subroutine to NXTINP to process 
the next input block. 

3*^9. 4. 3. 2 Searching the Loader Table for Matching Name 

There is a return jump to the closed subroutine TABSCH to find an 
entry in the Loader Table containing a 6 character name to match 
the entry point name from the input block. Upon return from TABSCH 
only one of the following occurs: 
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1. If a matching name had been found, the first address of 
the Loader Table entry is (TABLIM)+(SW6) where 0 

a. (TABLIM) is the lowest core address occupied by the 
Loader Table, and - 

b. (SW6) is an increment equal to the difference between 
the lowest address of the Loader Table and the first 
address of the Loader Table entry with the matching 
name . 

2. If a matching name had not been found, (SW6) is negative. 
3^.9. 4. 3. 3 No Matching Name 

If a matching name is not found, the entry point name from the input 
block must be entered into the Loader Table. The Loader Table entry 
is made as follows: 

1. LINK is set to -0, 

2. SW6 is set to 0, and 

3. a return jump is made to TABSTR. 

Upon return from TABSTR, (ENTPNT) will have been placed in WORD 4 
and (LINK) will have been placed in WORD 5 of the Loader Table entry. 
Following the terutn from TABSTR, there is a jump to ENTPR1 to 
process the next input block. 

3^ .9. 4. 3. 4 Matching Name Found 

If a matching name had been found in the Loader Table, the 1st word 
address of the entry is given by 

(TABLIM)+(SW6) 

The location (TABLIM)+(SW6)+3 contains the address for this name. 

This address is then pladed in LINK. If this address is an entry 
point address, then - 

(LINK) > 0 

If this address is a link address, then 
(LINK) < 0. 

3^.9. 4. 3. 5 Matching Name is Entry Point 

It is an error condition of an entry point name in the ENT block 
matches an entry point name in the Loader Table. A return jump is 
made to PRINT3 to print the error message n E8 f '. A return jump is 
also made to PRINT5 to list the entry point name. A jump is made 
to the location whose label is STOP, whereupon the Loading operation 
is terminated. 
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.9. 4a 3.6 Matching Name is External 

If the matching name found in the Loader Table entry is an external 
name, the contents of the location LINK is the one 1 s complement of 
the 1st address in the link address string. The contents of LINK is 
therefore complemented in order to obtain the link address. Next, 
it is necessary to determine if the entire link address string is or 
is not contained within the limits of Load Time Core (exclusive of 
the area containing the odd sector). In order to test for this, 
a return jump isx:made to a closed sib routine within the ENTEXT 
subprogram. The location at which this routine is entered has the 
name EXAMEN. Upon return from the EXAMEN subroutine one of these 
two conditions exists: 

CONDITION 1: (A) = -0 if the link address string is contained entirely 

within the desired area of Load Time Core (load Time 
Core exclusive of the odd sector), or - 

CONDITION 2: (A) = 0 if the link address string is recorded either 

entirely or in part on the mass storage unit containing 
the scratch area. 

If Condition no. 1 occurs, then - 

1. WORD 4 of the Loader Table entry for the matching name is 
filled with the entry point address: 

(ENTPNT) — > (TABLIM)+(SW6)+3 

(The link address for this entry is replaced with an entry 
point address. ) 

2. A return jump is made to the LINK1 routine to replace each 
link address in the string with the entry point address. 

Upon return from LINK1 a jump is made to ENTPR1 to process 
the next entry in the ENT block. 

If Condition no. 2 occurs, then - 

1 . The address = ” (TABLIM)+( SW6 )+3 " is placed in the location 
LINK, while (ENTPNT) = the entry point address. 

2. The location SW6 is cleared to zero. 

3. A return jump is made to TABSTR. 

Upon return from TABSTR, the address in ENTPNT was placed in WORD 4 
of the new Loader Table entry, while the address in LINK was placed 
in WORD 5. A jump is made to ENTPR1 to process the next entry in the 
block. 

3 ^ .9.4.4 EXTPRO 

An entry in an EXT block contains a 6 charzcter external name and a 
15 bit link address. EXTPRO will perform one of three functions 
based on the following conditions: 
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CONDITION 1: is that there exists no entry in the Loader Table 

which contains a 6 character name to match the external 
name from the input block. EXTPRO will enter the 
external name and the link address into the Loader Table. 
WORD 5 of this Loader Table entry is set to a -0. 

CONDITION 2: is that there exists an entry in the Loader Table which 

contains a 6 character entry point name which matches 
the external name in the input block. The link address 
for the name in the input block entry is the beginning 
of a link address string contained entirely within the 
desired limits of Load Time Core. EXTPRO, using the 
LINK1 routine, will perform the necessary link opera- 
tion to patch locations referencing this external name 
with the entry point address. 

CONDITION 3: is that there exists an entry in the Loader Table which 

contains a 6 character external name which matches the 
6 character external name in the input block. The 
link address in WORD 4 of the Loader Table entry is 
the beginning of a link address string contained 
entirely within the desired limits of Load Time Core. 

The link address from the entry in the input block is 
also the beginning of a string contained entirely 
within the desired limits of Load Time Core. The link 
address string referenced by WORD 4 of the Loader 
Table entry is M tied M to the end of the link address 
string referenced by WORD 4 of the input block entry. 

This is accomplished by using the LINK2 subroutine. 

CONDITION 4: is that there exists an entry in the Loader Table which 

contains a 6 character name for an external which matches 
the external name in the input block. The link address 
in WORD 4 of the Loader Table entry points to the 
beginning of a string of link addresses. However, this 
link address string is contained in command sequence 
storage recorded either entirely or in part on the 
mass storage device containing the scratch area. Using 
the TABSTR routine, EXTPRO will enter the external 
name and link address from the input block entry into 
the Loader Table. WORD 5 of the new Loader Table entry 
will contain the address pointing to WORD 4 of the 
previous Loader Table entry containing the matching 
external name. 

3^.9. 4. 4.1 EXTPR1 - EXT Block Entries 

EXT block entries are four words each. Tjhe first three words contain 
a 6 character external name. (Fewer than 6 characters in a name 
means that the ASCII code for spaces will be used as fill at the right 
end of the name.) If the link address is program relocatable, the 
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fourth-'word of the entry will contain a positive number which is the 
relative 16 bit link address. If the link address is absolute, the 
fourth word of the entry will contain a negative number which is the 
one’s complement of the 15 bit entry point address, the end of the 
input block is marked by a word of zeros in place of an entry point 
name. 

INPCTR is used by the closed subroutine NXTNAM to extract entries from 
the EXT block. Initially INPCTR is set to the address ”INPUT-3 n by 
EXTPRO. The contents of INPCTR is increased by 4 upon each entry to 
NXTNAM from EXTPRO. This will set INPCTR to the first word address 
of the next entry in the EXT block. As a result of the return jump 
to NXTNAM either - 

la. -((INPCTRH3) > ENTPNT 

if ( ( INPCTR)+3 ) <0, or - 

lb . ( ( INPCTR)+3 M PROBAS ) > ENTPNT 

if ( ( INPCTR )+3) >0, and - 

2. (INPCTR >+4- >INPCTR 

There will be no return from NXTNAM if (( INPCTR) )=0. Instead there 
will be a jump from NXTNAM to NXTBLK to process the next input block. 

3T .9. 4. 4. 2 Searching Loader Table for Matching Name 

There is a return jump to the closed subroutine TABSCH to find an 
entry in the Loader Table containing a 6 character name to match 
the external name from the input block. Upon return from TABSCH 
only one of the following occurs: 

1. If a matching name had been found, the first word address 
of the Loader Table entry is (TABLIM)-f (SW6) , where - 

a. (TABLIM) is the 1st address of the Loader Table, and - 

b. (SW6) is an increment equal to the difference between 
the lowest address of the Loader Table and the first 
address of the Loader Table entry with the matching name. 

2. If a matching name had not been found, (SW6) is negative. 

3*1 .9. 4. 4. 3 No Matching Name 

If a matching name is not found, the external name from the input 
block must be entered into the Loader Table. The Loader Table 
entry is made as follows: 
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1. LINK is set to -0, 

2. SW6 is set to -0, and 

3. a return jump is made to TABSTR. 

Upon return from TABSTR, (ENTPNT) will have been placed in WORD 4 
of the Loader Table entry, and (LINK) will have been placed in WORD 5,. 
Following the terutn from TABSTR there is a jump to EXTPR1 to process 
the next input block. 

3T .9.4.4. 4 Matching Name Found 

If a matching name had been found in the Loader Table, the 1st address 
of the entry is given by - 

(TABLIM)+(SW6). 

The location (TABLIM)H-(SW6)-f3 contains the address for the name. This 
address is then placed in LINK. If this address is an entry point 
address, then - 

(LINK) ^ 0. 

If this address is a link address, then - 
(LINK) <1 0. 

3T .9. 4. 4. 5 Matching Name is Entry Point 

If the matching name in the Loader Table entry is an entry point name, 
the contents of the location LINK is the one's complement of the 1st 
address in a link address string. The contents of LINK are therefore 
complemented in order to obtain the link address. Next, it is necessary 
to determine if the entire link address string is or is not contained 
within the limits of Load Time Core (exclusive of the area containing 
the odd sector). In order to test for this, a return jump is made 
to a closed subroutine within the EXTENT subprogram. The location 
at which this routine is entered has the name EXAMEN . Upon return 
from the EXAMEN subroutine one of these two conditions exists: 

CONDITION 3: (A) = -0 if the link address string is contained entirely 

within the desired area of Load Time Core (Load Time 
Core exclusive of the odd sector), or - 

CONDITION 4: (A) = 0 if the link address string is recorded either 

entirely or in part on the mass storage unit containing 
the scratch area. 
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If condition 3 occurs, the beginning of the link address string 
referenced by the Loader Table entry is tied to the end of the link 
address string referenced by the input block entry. This is accomplished 
by a return jump to the LINK2 subroutine. (See item 28.8.9.) 

If Condition 4 occurs, theprocedure to be followed is that specified 
by Condition 2 of item 28.9.4.3.6. However, prior to the return 
jump to TABSTR, the location SW6 is set to -0 instead of 0. 

3 *] .9.4.5 Exit from ENTEXT 

The exit from either of these routines is with the following instruc- 


tion: 

LABEL 

OPCODE 

ADDRESS 

REMARKS 


JMP- 

NXTINP, I 

JUMP TO NXTINP TO READ 


EQU 

NXTINP( 123) 

NEXT INPUT BLOCK 


In the event the same name is declared as an entry point name by more 
than one program being loaded, an exit is made from the EXTENT routine 
with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EXT* STOP 

JMP STOP 

where the name STOP is an entry point in the LSTOUT subprogram. (See 
item 28.8. 7.2. ) 

.9.4.6 Subroutines Used by and Internal to ENTPR0 and EXTPR0 

The NXTNAM routine is used by both ENTPRO and EXTPR0 to extract the 
next entry to be processed from the input block. The EXAMEN routine 
will slew through a string of link addresses to determine if they 
are entirely in core, or if they are either entirely or in part located 
on mass storage. 

31 .9.4.6. 1 NXTNAM 

This subroutine is used to extract an entry from either an EXT block 
or an ENT block. A single word entry in either type of block consists 
of a 6 character name and a 15 bit address as follows: 
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WORD 1 
WORD 2 
WORD 3 
WORD 4 

Upon entry to NXTNAM, the contents of INPCTR is increased by 4 to set 
it to the first word address of the next entry to be processed. If 
((INPCTR)) is either a +0 or a -0, the last entry of the input block 
had been processed. 

NXTNAM will jump to NXTINP to process the next input block. If 
((INPCTR)) is not zero, NXTNAM will look at the 15 bit address in the 
last word of the entry. If ((INPCTR)+3) is negative, it is the one’s 
complement of a 15 bit address which is absolute. NXTNAM will place 
the one’s complement of the contents the 4th word of the entry in 
ENTPNT : 


Char 1. 

Char 2 

Char 3 

Char 4 

Char 5 

Char 6 

Address 


- ( ( INPCTR)-f3 ) > ENTPNT 

If this address is positive, it is a program relocatable address. 
NXTNAM will add the relative value in word 4 of the entry to the pro- 
gram relocation base and place the result in ENTPNT: 

( INPCTRH4 > INPCTR 

A jump is made to the exit from NXTNAM. 



3*3 .9. 4. 6. 2 EXAMEN 


This routine will slew through a link address in the following way: 

1. Get the first link address in the string = (LINK). If (LINK) = 

$7FFF the end of the string has been reached. The entire 
string sits in Load Time Core. Place a -0 in the A register 
and go to exit. If (LINK) ^ $7FFF, record address and go to 
step 2. 

2. If execution time value of current link address in string is 
less than (PROLIM), the link address is not within the 
desired limits of Load Time Core, Place a +0 in the A register 
and go to exit. Otherwise, continue at Step 3. 

3. Given the execution time value for the current link address 
in string, compute the load time value: 

load time address — execution time address + (DATLEN)-(PRODIF) . 

4. Given the load time value of the current link address, go to 
that location, pickup the execution time value of the next 
link address in the string. Replace current link address with 
next one in string. Go back to step 2 and continue operating 
in slew loop. 
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3^. 9.4.7 Subroutines Used by and External to ENTPRO and EXTPRO 


3 ^ 9.5 


1. TABSCH 

2. TABSTR 

3. LINK1 

4. LINK2 

5. PRINT3 

6. PRINT5 


is used to search the Loader Table for a name to match 
the name in the input block entry being processed. 

(See item 28.8.5. ) 

is used to enter a name from the input block entry 
being processed into the Loader Table. (See item 
28.8.6.) 

is used to patch each location in a string of link 
addresses with the entry point address for the name in 
the input block entry being processed. (See item 
28.8.8. ) 

is used to tie two strings of link address together. 
(See item 28.8.9. ) 

is used by ENTPRO to print an error indication when 
it encounters an entry point name in the input block 
which matches an entry point name in the Loader Table. 
(See item 28.8.7.1.) 

is used by ENTPRO to print the entry point name causing 
the error described in 5. (See item 28.8.7.4.) 


XFRPRO 


XFRPRO is the routine which processes an XFR block. 


3^.9. 5.1 Constant Table S t orage Referenced by XFRRPO 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


AINPUT 

161 

BLANKS 

18 

CSQCTR 

183 

CSQLIM 

6 

DATLEN 

177 

ENDINP 

17 

INPUT 

29-88 

PROBAS 

3 

PR0STR 

185 

XFRNAM 

92-94 


The constants are used as follows: 

1. AINPUT contains one of the entrance parameters for the 

Loader Operation. 

2. BLANKS a constant = ASCII code for 2 spaces. (BLANKS) 

= $ 2020 . 
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3. 

CSQCTR 

contains one plus the highest load time address 
occupied by the command sequence iorage of the 
program whose XFR block is currently being pro- 
cessed. 

4. 

CSQLIM 

contains one plus the highest execution time address 
occupied by the command sequence storage of the 
program whose XFR block is currently being processed. 

5. 

DATLEN 

contains the number of words set aside for the 
data block. 

6. 

ENDINP 

contains the highest load time address for command 
sequence storage. 

7. 

INPUT 

is the 1st location of a 60 word area reserved 
for storage of relocatable binary input. 

8. 

PROBAS 

is set to the execution time relocation base for 
the next relocatable binary program to be loaded. 

9. 

PR0STR 

is set to the load time storage base for the next 
relocatable binary program to be loaded. 

10. 

XFRNAM 

contains the 6 character transfer name from the last 
XFR block processed which had a name (see item 
28.9.5.3.) 


3*1.9. 5.2 Entry to XFRPRO 

The name XFRPRO is declared as an entry point name in the XFRPRO 
routine and as an external in the LOADER routine. Entry to XFR p R0 
is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMPi XFRPRO 

3^.9. 5. 3 Recording Transfer Name 

When the Loader is brought into core, the locations XFRNAM, 

NFRNAM+1 & XFRNAM+2 are set to zero. If the XFR block contains 
a transfer name, it is recorded in the locations INPUT+1 , INPUTH-2, 
and INPUT+3. If the XFR block does not contain a transfer name, 
each of these 3 locations contains the ASCII code for 2 spaces. 

If the XFR block contains a name, XFRPRO replaces the current contents 
of XFRNAM, XFRNAM4-1 and XFRNAM+2 with the ASCII code for this 6 
character name. 
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.9.5.4 Recording Relocation Base for Next Program 
Prior to the exit from XFRPRO: 

1. (CSQLIM) ^PROBAS where (PROBAS) = exec, time relocation 

base of next program to be read in. 

2. (CSQCTR) >PR0STR where (PROSTR) = load time storage base 

of next progran to be read in. 

3. (CSQCTR)+(DATLEN)— > ENDINP where (ENDINP) - highest load 

time core location to be occupied by 
command sequence storage. 


3T.9.5.5 Exit from XFRPRO 


31.9.6 


A test is made to determine the type of Loader Operation is in progress. 
If bits 0 and 1 of AINPUT are set to 0, the Loader Operation is 
Relocatable Binary Load. Exit from XFRPRO is then made with the 
fol lowing instruction. 


LABEL OPCODE 


ADDRESS 


REMARKS 


JMP- 

EQU 


NXTINP , I GO TO NXTINP TO BEGIN 

NXTINP( 123) LOAD OF NEXT PROGRAM 


Upon execution of this instruction the Loader will look for the next 
input block which must be one of the following: 

1. The NAM block of the next program, 

2. a hex block 

3. An E0L block 

4. if no data is read by the Loader, it is the same as if an 
EOL block had been received. (See item 29.1.4.1.) 


If the Loader Operation is either a Subroutine Load or a Program 
Load, exit from XFRPRO is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP ALRMOK 


where the name ALRMOK is referenced as an external in XFRPRO and 
as an entry point in the LOADER routine. (See item 28.9.1.4.1.) 


HEXPRO 


HEXPRO is the routine which is used to process a HEX block. 
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31 .9.6.1 Constnat Table Storage Referenced By HEXPR0 


NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 


ASAV 

BLANKS 

COMBAS 

CSQCTR 

CSQLIM 

DATBAS 

DATCTR 

DATDIF 

DATLEN 

DATSTR 

DIFCON 

INPCTR 

INPREL 

INPUT 

INPWRD 

INPXC1 

LOWCOR 

LWRLIM 

NAME 

NGRLSW 

PROBAS 

PRODIF 

QSAV 

SCANSW 

SECTNO 

SECTOR 

SW6 

SYMSTR 

TABLIM 

WRDCNT 


89 
18 

1 

183 
6 
5 

182 

184 
177 
180 
186 

15 

11 

29-88 

10 

118 

179 

191 

95-98 

9 

3 

171 

90 

22 

173-174 

198 

28 

19 

7 

24 


The 

constant s 

are used as follows: 

1. 

ASAV 

is used for temporary storage of the operand in the 
A register. 

2. 

BLANKS 

contains the ASCII code for 2 spaces = $2020. 

3. 

COMBAS 

contains the common storage relocation base. 

4. 

CSQCTR 

contains the limit address of the input area (last 
address + 1) for storage of hex correction constant. 

5. 

CSQLIM 

contains upper limit of command sequence (last address 
+ 1) at execution time. 

6. 

DATBAS 

contains the relocation base for the Execution Time 
Data Storage Block Reservation. 
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7. DATCTR 

8. DATDIF 

9. DATLEN 

10 . DAT ST R 

11. DIF CON 

12. INPCTR 

13. INPREL 

14. INPUT 

15. INPWRD 

16. INPXC1 

17. ILOWCOR 

18. LWRLIM 

19. NAME 

20. NGRLSW 

21. PRO BAS 

22. PR0DIF 


contains the limit address of the Load Time Data 
Storage Buffer, 

contains the difference equal to - 
(DATBAS)- (DATSTR) . 

contains the number of words to be set aside for 
the data block reservation, = (DATCTR) -(DATSTR) . 

contains the relocation base for the Load Time Data 
Storage Buffer, 

is used for temporary storage. 

is the address counter which is used for storage 
of hex correction constants in the input area, 

contains the terminating character of a field in the 
HEX block when the feild is extracted using the SCAN 
routine. 

is the storage area for input blocks read by the 
Loader. 

contains the binary value for numeric fields extracted 
from the input area by the SCAN routine. (See item 
28.8.1.) 

contains the address constant "INPUT-fl". 

contains the lower limit address (starting address -1) 
for Load Tome Core, 

=(LWRLIM)+( DATLEN) 

contains the lower limit of unprotected core, 

=($F7) 

contains the ASCII code for the name used in the 
starting address field of the HEX block. 

contains a 0 if there is no loading algebraic sign 
for a numeric field in the HEX block. It contains 
a +1 if the leading algebraic sign is legal and is a 
,, + n • It contains a -1 if the leading algebraic sign 
is legal and is a 

contains the program relocation base for HEX block 
correction constants. (For additional information 
refer to item 28.9.6.4.2 on starting addresses.) 

contains the word count of the command sequence 
on mass storage. 
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dl -.9.6. 2 


23* QSAV is used for temporary storage of the operand in the 

Q register. 

24. SCANSW is used as a bank of switches set prior to entry to 
SCANSW. See item 28.9.6.4.1 for use of SCANSW. 


25. SECTN0 

26. SECTOR 

27. SYMSTR 

28 . TABLIM 


is the name for the 1st of 2 locations which contains 
a 30 bit number which is the absolute value for a 
starting sector for an 1/0 operation. The 15 most 
significant bits are located in bits 0-14 of SECTNO. 
The 15 least significant bits are located in SECTNO-fl. 

contains the word count for 1 sector on mass storage, 
= 96. 

is used as storage for up to 6 characters of a field 
extracted from the input block by the SCAN routine. 

contains the base address of the Loader Table. 


29. WRDCNT is used as the character reference counter in order 

to extract characters from the input area. Bits 1-15 
of WRDCNT are set to the address of the character. 

Bit 0 = 0 if the character is in the left half or =1 
if in the right half of the word. 

Communication Region Constants Used by HEXPR0 


CONSTANT LOCATION 

$7FFF $42 = MASK1 

$8000 $21 = MASK2 


.9.6.3 Entry to HEXPRO 


The name HEXPRO is declared as an external in the LOADER routine and 
as an entry point in the HEXPRO routine. The HEXPRO routine is entered 
from LOADER with the following instruction: 


LABEL OPCODE ADDRESS REMARKS 

JMP HEXPRO 

-j-j .9.6.4 Processing a HEX Block 

HEXPRO will extract correction constants from entries in the HEX 
block and store them at consecutive locations beginning with a 
starting address for the operation. The starting address is contained 
in the first entry of the input block. Subsequent entries each 
contain a correction constant together with its relocation byte. 
Entries within the HEX block are separated by commas. The last entry 
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in the block is followed by a carriage return (or a space if the input 
is from the card reader). A correction constant is missing if two 
commas occur with no entry data to separate them. The contents of 
the location which would have received the missing correction constant 
is not disturbed by HEXPRO. HEXPRO terminates operation when either 
the last entry in the block is processed or when an error has occurred 
while processing the HEX block. 

A HEX block may have a maximum of 120 characters including the 
carriage return which is the last character of the block. (A 
space is accepted in place of a carriage return in case the input 
is from the card reader.) 

Immediately upon entry to HEXPRO, a test is made for the proper termi- 
nating character in the 120th character position. If it is neither 
a space nor a carriage return, an illegal character of $00 will be 
inserted in itos place. Consequently when HEXPRO encounters this 
illegal character during block processing, an error message will 
be printed and further processing of the HEX block is terminated. 


3 *]. 9. 6. 4.1 Extracting HEX Block Entries 


Entries within the HEX block may contain terms which are either names 
of up to 6 characters or hexadecimal numbers of up to 4 digits. 

The subroutine, SCAN, is used to extract a term of an entry from 
the input block. The SCAN sburoutine is entered by a return jump. 

Upon entry to the SCAN subroutine, the bits 0-2 of the location SCANSW 
may have the following setting: 


1 . 


2 . 


3 . 


Bit 

Bit 


Bit 


0 = 1 if the term is assumed to be a hex number, or - 


= 0 if no such assumption i 

1 = 1 if the term may have no 

"+", or - 

= 0 if the term may have no 

2 = 1 if the term may have no 

or - 

= 0 if the term may have no 

it it 

*■ • 


made by the calling program, 
leading algebraic sign of 

leading algebraic sign of 

leading algebraic sign of 

leading algebraic sign of 


In addition, if the term is numeric, the SCAN subroutine will pick 
up the ASCII characters for the digits of the number as well as 
the binary value of the number whenever bit 3 of SCANSW is set to 
1. Unless the A register is zero upon entry to SCAN, it is assumed 
that the leading character of the term about to be processed is in 
bits 0-7 of the A register. Upon return from SCAN: 

1. If the term is a name, the locationsi.SYMSTR to SYMSTR+2 
contain the ASCII code dor up to 6 characters of the name. 
If the name contains fewer than 6 characters, the unused 
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character positions are spac filled. The terminal character 
is in bits 0-7 of INPREL. The terminal character may be 
either the 7th character of the name or the first non 
alphanumeric character (neither A thru Z nor 0 thru 9) 
to occur prior to the 7th character position. The location 
NGRLSW will be set to either -1, 0 or +1 depending on 
whether the name was preceded by a f, - If sign, no sign or 
a n + n sign. 

2. If the term is numeric, the location is always zero. The 
location INPWRD contains the binary value. If bit 3 of 
SCANSW was set to a "l” the locations SYMSTR+1, SYMSTR+2 
and the left half of SYMSTR+3 contain the ASCII code for 
either : 

a. Up to 5 decimal digits, or 

b. a n $ ,f followed by up to 4 hexadecimal digits. 

3T .9.6.4. 2 Starting Address 

The starting address may consist of either an entry point name 
(up to 6 characters) with or without an increment, or an absolute 
hexadecimal address of up to 4 hex digits and no increment. If 
the starting address is absolute, it is extremely important 
that the hexadecimal number be preceeded by ,r $ M . It is otherwise 
assumed to be a decimal number. However, where an increment is 
used with an entry point name, the increment is assumed to be 
a hexadecimal number. Also, neither an absolute starting address 
nor an entry point name may be preceded by an algebraic sign of 
H-fn or n.M although a hexadecimal increment may have such a leading 
algebraic sign. 

3T .9. 6. 5. 3 Entry Point Names and Hexadecimal Increments As a Starting Address 

The A register is ste to 0. Then there is a return transfer to SCAN. 
Upon return from SCAN, a six character name is stored at the 3 loca- 
tions SYMSTR, SYMSTR+1 and SYMSTR+2. The name must appear in some 
entry of the Loader Table, and the address associated with the name 
must be an entry point address. A return jump is made to TABSCH 
to search for the entry point name in the Loader Table. Upon return 
from TABSCH one of the following occurs: 

1. If (SW6) is negative, the entry point name does not appear 
in the table. A return jump is made to the error subroutine 
PRINT3 to print an error indication of n E13 n . Another 
return jump is made to the subroutine PRINT3 to print the 
entry point name. A jump is made to NXTINP to process the 
next block of input. 
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2. If ( (TABLIM)+(SW6)+3 is negative, there is an entry in 
the Loader with a name to match the entry point name. 

However, the address for this name is the one 1 s complement 
of a 15 bit link address. The error procedure described 
in the previous paragraph takes place. 

3. If ( (TABLIM)-f (SW6)+3) is positive, it is taken as the 15 
bit address associated with the entry point name in the 
starting address. This address is placed in INPCTR. 

This address is also placed in PROBAS. 

Upon return from SCAN, the character which follows the entry 
point name is contained in the location (INPREL). If this 
character is a comma, there is no hexadecimal increment included 
in the starting address. If this character is a plus or minus, 
there is either a positive or negative increment included in the 
starting address. 

The A register is set to the ASCII code for the leading algebraic 
sign - 

(INPREL) > A. 

A second return jump is made to SCAN to pick up the binary value 
of this increment. Upon return from SCAN, (SYMSTR) must be zero, 
(INPWRD) must contain the binary value of the increment (or its one’s 
complement if negative) and (INPREL) must contain a comma. If any 
one of these conditions is not met, a return jump is made to the 
PRINT3 error subroutine where the error indication n E13” is printed. 

A return jump is made to PRINT5 to print the name. A jump is made 
to NXTINP to read the next input block. If no error had occurred, 
(INPWRD) is added to (INPCTR) and the result is placed in INPCTR. 

NOTE: In a HEX block, the hexadecimal increment for the starting 

address is the only number that may have a leading algebraic sign. 
Numeric starting addresses may not have a leading algebraic sign. 

Also, if a numeric starting address is not followed by a comma, 
the error procedures described above occurs. 

31.9.6.4.4 Absolute Number as a Starting Address 

Upon the return from the first return transfer to SCAN, an 
absolute starting address is assumed if (SYMSTR) is zero and INPWRD 
contains a binary value. This value is placed in INPCTR. The location 
INPREL must contain a comma. Any other character would cause an 
error operation similar to that described in item 28.9.6.4.2. 
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3T .9. 6. 4. 5 Preseting Data with HEX Correction Constants 

Data storage may be preset during a loading operation using HEX 
corrections. The starting address consists of either the entry point 
name M DATBAS n + HEX increment or this entry point name with no 
increment. 

3*3 .9. 6. 4. 6 Limits of Core Which may be Preset with HEX Correction Constants 

HEX correction constants may not be stored in locations in protected 
core. The two areas of execution time core which may be preset with 
HEX correction constants are $C5 - $E3 and (LWRLIM+1) to (CSQLIM). 

When the absolute value c£ the starting address for the HEX block 
is determined, it is placed in INPCTR. A test is made to see if 
the address in INPCTR is not for a location in unprotected core. 

No error indication will be made if either of the following possi- 
bilities is the case: 

1. (LWRLIM)< (INPCTR) <(CSQLIM) 

2. $C5 ^(INPCTR) ^ $E3 


If either - 

(INPCTR)<$C5 

or - 

$E4 Z. (INPCTR) ^ (LWRLIM) 

then - 

the error indication "E6" is printed to indicate the starting address 
is for a location in protected core. The error procedure described 
in item 28.9.6.4.2 then follows. 

3^ .9. 6.4. 5 Locating Storage Area for HEX Correction Constants 

The input area for storage of the HEX correction constants is deter- 
mined at the location whose label is HEXPR5. This is accomplished 
as follows: 

1. If the starting address is greater than M $C4 M but less than 
M $E4 ,! , the input area is in the unprotected area of the 
communication region. Therefore - 

a. (INPCTR) = starting address for the HEX block, 

b. "$E4" — >CSQCTR, where (CSQCTR) = limit address for 
the input area, and 

c. +1 SW6. 

A jump is made to HEXPR6 to process the individual hex 
correction constants. 
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2. If the starting address field of the HEX block contains an 
entry point name = n DATBAS M , the input area is in the Load 
Time Data Storage Buffer. Therefore - 

a. (INPCTR) - (DATDIF) > INPCTR, where (INPCTR) = starting 

address for the input area, 

b. (DATCTR) — CSQCTR, where (CSQCTR) = limit address for 
the input area, and 

c. 0 >SW6. 

A jump is made to HEXPR6 to process the individual HEX 
correction constants. 

3. If the starting address field of the HEX block contains an 
entry point name, and if the entire command sequence storage 
remains in Load Time Core such that (PRODIF) = 0, then - 

a. (INPCTR) + (DATLEN) — > INPCTR, where (INPCTR) = starting 
address for the input area, 

b. ( CSQLIM) + (DATLEN) :> CSQCTR, where (CSQCTR) = limit 

address for the input area, and 

c. 0 >SW6. 

A jump is made to HEXPR6 to process the individual HEX 
correction constants. 

4. If the. starting address field of the HEX block contains an 
entry point name, and if the entire command sequence is on 
mass storage such that (PRODIF) =£ 0, then the input area is 
located in 1 or 2 sectors on mass storage. Therefore, 2 
sectors will be brought into core as follows: 

a. (LOWCOR)IT INPCTR, where (INPCTR) = starting address 

of input area, 

b. (L0WC0R)+194 — > CSQCTR, where (CSQCTR) = limit address 
for the 192 words brought in from mass storage, 

c. -1 — ^ SW6 , 

d. The absolute value of the number for the 1st of 2 sectors 
is computed using the DPRADD routine. The sector number 
is recorded in SECTNO and SECTNO+1, and 

e. A return jump is made to MDRIV to read 192 words inot 
core starting at (L0WC0R)+1. 

A jump is made to HEXPR6 to process individual correction 
constants . 

3 C 19.6.4.6 Correction Constants - HEXPR6 

A return transfer is made to SCAN for each correction constant. 

1. A legal correction constant has been extracted. 

2. An illegal correction constant has been detected. 
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3. The entry contains no correction constant. 

3T.9.6.4.7 Storing a Legal Correction Constant 

If upon return from SCAN, an entry contains a legal correction constant 
(a constant of no more than 4 hexadecimal digits), (SYMSTR) is zero, 
(INPWRD) is the binary value of the correction constant and (INPREL) 
contains either a f, + ,f or a n - ff as the terminating character for the 
correction constant. The plus sign indicates positive address relo- 
cation for the correction constant while the minus sign indicates 
negative address relocation. The particular relocation base to be 
used for address relocation depends on the relocation flag which 
follows the ?, + M or sign. The relocation flag is extracted from 

the input block by a return jump to CHPU. (See item 28.8.2.) Upon 
return from CHPU, the location INPREL contains in bits 0-7 the ASCII 
code for a relocation flag where the relocation flags are as follows: 

A absolute or no relocation 

P program relocation 

C common storage relocation 

D data relocation 

Relocation is handled as follows: 


TYPE OR RELOCATION 

abso lute 
negative absolute 
positive program rel. 
positive common storage rel. 
positive data storage rel. 
negative program rel. 
negative common storage rel. 
negative data storage rel. 


ACTION TAKEN 

(INPWRD)-O > INPWRD 

( INPWRD) -0 > INPWRD 

( INPWRD)- ( PR0BAS ) >INPWRD 

( INPWRD ) +■( COMBAS ) > INPWRD 

( INPWRD)- ( DAT BAS) > INPWRD 

( INPWRD ) - ( PR0BAS ) > INPWRD 

(INPWRD)- (COMBAS) > INPWRD 

( INPWRD)- (DATBAS) > INPWRD 


The subroutine ADJ0VF is used to perform the address arithmetic. (See 
item 28.8.3.) If the relocation flag in INPREL is not one of the above 
characters, it is regarded by HEXPR0 to be an error. Further pro- 
cessing of the HEX block is terminated, and a jump will be made to the 
location HEXERX. (See item 28.8.6.4.10.) 

If the relocation flag for the correction constant is legal, HEXPR0 
will attempt to store the constant at the location whose address is 
in INPCTR. Before this constant is stored, a test must be made for 
overflow of the input area. Overflow of the input area has occurred 
if - 


(INPCTR) ^ (CSQCTR). 


f f 
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If overflow of the input area has occurred, one of the following 
will happen: 

1. (SW6) =0 or -1, the error message ,! E5 M is printed to indi- 
cate overflow of the input area. A jump is then made to the 
location HEXERX. (See item 28.9.6.4.10.) 

2. If (SW6) = +1, the error indication ,f E6 M is printed to 
indicate overflow of the unprotected area of the communication 
region and an attempt has been made to store a correction 
constant in a location in protected core. A jump is made 

to HEXERX. (See item 28.9.4.6.10.) 

If there is no overflow of available core, the contents of INPWRD 
is stored at (INPCTR). The contents of INPGTR is increased by 1 to 
the bext address of storage for correction constants. A return 
transfer is made to CHPU. Upon return from GHPU, bits 0-7 of the 
location INPREL contain the character which follows the entry reloca- 
tion flag for the correction constant. If this character is a comma, 
HEXPR0 will look to process the next entry in the block. If this 
character is a carriage return (or a space), HEXPRO will transfer to 
NXTINP to process the next entry in the block. However, if the input 
area is from mass storage, the 192 words at the bottom of Load Time 
Core must be written back onto mass stoage before a jump is made to 
NXTINP. If this character is neither a comma, space or carriage 
return, a jump is made to the location HEXERX. (See item 28.9.6.4.10.) 

Since the driver does not transfer a carriage return to the input 
buffer, the presence of a carriage return in the input block is 
indicated with a n $FF n . (Prior to reading a record of relocatable 
binary input, each location in the input buffer is filled with the 
value $FFF.) 

3^ .9. 6. 4.8 Illegal Correction Constants 

Illegal correction constants are those which have more than 4 digits. 
Illegal relocation flags or a relocation flag not separated from the 
constant by a f, + n or a n - T? sign. If an illegal correction constant 
should occur, processing of the HEX block is terminated. A jump is 
made to the location HEXERX. (See item 28.9.6.4.10.) 

Binary values for illegal correction constants are not stored in core. 
However, if a correction constant and its relocation flag are followed 
by an illegal field terminator, the binary value for the constant i_s 
stored in core. Processing of the HEX block from that point on, however, 
is terminated, and a jump is made to the location HEXERX. 

3 C 1 .9.6. 4. 6 Missing Correction Constants 

A field is considered to have a missing correction constant only if 
upon return from SCAN the following is true: 

1. (INPREL) = ASCII code for comma, 

2. (SYMSTR) = ASCII code for blanks, 

3. (INPWRD) = is set to zero. 
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When a field contains a missing correction constant, the contents of 
the location whose address is in INPCTR is not disturbed. The 
address in INPCTR is increased by 1, and subsequent correction 
constants in the input block are stored beginning with the next 
address. 


If upon return from SCAN, (INPREL) contains a value = $FF in place 
of a comma, the field with the missing correction constant is considered 
to be the last field in the input block. An exit is made from HEXPRO, 
the procedure for which is described in the second-from- the- last 
paragraph in item 28.9.6.4.7. 

3T .9.6.4. 10 HEXERX 


When a jump is made to HEXERX, a test is made to determine whether or 
not the input area consists of 192 words of command sequence read in 
from mass storage. 

If (SW6) 0, the command sequence for the input area did not come 

from mass storage. The error procedure described in item 28.9.6.4.2 
is followed. If (SW6) __ 0, the command sequence of the 192 word 
input area is written back onto the 2 mass storage sectors from 
which it originated. (This is followed by the error procedure 
described in item 28.9.6.4.2.) 

3^ .9.6.5 Exit from HEXPRO 


Exit from HEXPRO is made with the following instruction: 
LABEL OPCODE ADDRESS REMARKS 


JMP- 

EQU 


NXTINP , I 
NXT INP( 123) 


JUMP TO NXTINP TO READ 
NEXT INPUT BLOCK 


3T .6.9.6 Subroutines used by and External to HEXPRO 


1. MDRIV 


2 . DPRADD 


3. SCAN 


is used for mass storage I/O operations. MDRIV is 
entered with a return jump to its entry point name, 
MDRIV, which is declared as an external in the calling 
PROGRAM. (See item 28.7.3.) 

is used to compute the starting sector number for all 
mass storage I/O operations. DPRADD is entered with 
a return jump to its entry point in the constant table. 
(See item 28.8.11.) 

is used to extract a field from the input block. A 
field may contain either the starting address, an 
increment of the starting address or a correction 
constant. SCAN is entered with a return jump to its 
entry point in the constant table. (See item 28.8.1.) 
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3 ^ 9.7 


4. CHPU 

5. PRINT3 

6. PRINT5 


is used to extract a single character from the input 
block. CHPU is entered with a return jump to its 
entry point in the constant table. (See item 28.8.2.) 

is used to print error messages. PRINT3 is entered 
with a return jump to its entry point in the constant 
table. (See item 28.8.7.1.) 

is used to print the name of a starting address follow- 
ing the printout of an error indication. PRINT5 is 
entered with a return jump to its entry point in the 
constant table. (See item 28.8.7.4.) 


EOLPRO 


EOLPRO is the routine which is used to process the EOL block. 


3^ .9.7.1 Constant Table Storage Referenced by EOLPRO 


NAME USED IN DOCUMENTATION 

BASE 

DATLEN 

DATSTR 

DIF CON 

DSECN0 

ENTPNT 

INPCTR 

INPWRD 

LINK 

L0WC0R 

LWRLIM 

NGRLSW 

PRODIF 

SECTNO 

SECTOR 

SW6 

TABCTR 

TABLIM 

TABSNO 


STORAGE POSITION IN CONSTANT TABLE 

23 

177 

180 

186 

203 

13 

15 
10 

14 
179 
191 

9 

171 

173-174 

198 

28 

16 
7 

204 


The constants are used as follows: 


1. BASE 

2. DATLEN 

3. DATSTR 


contains the 

contains the 
reservation. 

contains the 
Data Storage 


base address of the Loader. 

number of words set aside for a data 

storage base address for the Load Time 
Buffer. 
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4. DIFCON 

5. DSECNO 

6. ENTPNT 

7. INPCTR 

8. INPWRD 

9. LINK 

10 . LOWCOR 

1 1 . LWRLIM 

12. NGRLSW 

13. PROD IF 

14. SECTNO 

15. SECTOR 

16. SW6 

17. TABCTR 

18. TABLIM 

19. TABSNO 


is used for temporary storage. 

contains the relative value of the starting sector 
number for recording the Load Time Data Storage 
Buffer in the scratch area on mass storage. (See 
item 28.9.1.5.2.) 

is set to WORD 4 of a Loader Table when EOLPRO looks 
at the table entry. 

is set to the address of WORD 1 of a Loader Table 
as EOLPRO looks at the table entry. 

is used for temporary storage. 

is set to WORD 5 of a Loader Table entry when EOLPRO 
looks at the table entry. 

contains the lower limit address (lowest address -1) 
of Load Time core - 

= (LWRLIM) 4- (DATLEN) s 

contains the lower limit of unprotected core = ($F7). 

is the switch which determines the address mode for 
which patching will occur during a LINK1 (patching) 
operation. NGRLSW is set positive if patching is 
for absolute addressing and negative for relative 
addressing. (See item 28.8.8 - LINK1.) 

contains the word count of the command sequence 
recorded on mass storage. 

is the 1st of 2 locations containing a 30 bit sector 
number. This is the absolute value for the number of 
the starting sector for an I/O operation on mass 
storage. The 15 most significant bits are stored in 
bits 0-14 of SECTNO, and the 15 least significant 
bits in bits 0-14 of SECTNO+1. 

contains the word count for 1 sector on mass storage = 
96 words. 

contains some positive value which is an integer 
multiple of 5 such that 

(TABLIM) 4 (SW6) = 1st word address of some 

Loader Table entry. 

contains the number of entries in the Loader Table. 

contains the base address of the Loader Table. 

contains the relative value of the starting sector 
number for recording the Loader Table in the scratch 
area on mass storage. (See item 28.9.1.5.4.) 
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.9.7.2 Entry to E0LPR0 

The name E0LPR0 is declared as an entry point name in the E0LPR0 
routine and as an external in the LOADER routine. Entry to the 
E0LPR0 routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP E0LPR0 

3 c] *9.7.3 Processing an EOL Block 

If the command sequence storage read in by the Loader has not overflowed 
the capacity of Load Time core, a jump is made to E0LPR0. This will 
occur if (PRODIF) =0. At the location E0LJ00, the A register is set 
to a -0 and the Q register to a ~K). A jump is made to the address in 
the location LOADER where the address LOADER is external to the E0LPR0 
routine* (See item 28.9.1.) 

If the command sequence storage read in by the Loader has overflowed 
the capacity of Load Time Core such that (PRODIF) ^ 0, E0LPR0 will 
perform a check of the Loader Table. The contents of PRODIF is recorded 
temporarily in DIFC0N. The contents of DATLEN is recorded temporarily 
in DATNUM. E0LPR0 checks for duplicate Loader Table entries such 
that one entry contains an entry point name and address and the other 
entries by this name contain external names and link addresses. The 
link addresses point to link address strings which are situated on mass 
storage. It is up to the E0LPR0 routine to locate such a string, bring 
it into core, patch each location in the string with the entry point 
address and write it back onto mass storage. Also it is up to the 
EOLPRO routine to look for other duplicate entries in the Loader Table 
for this name. EOLPRO will erase the duplicate entry for the Link 
string it has just patched. 

At the end of the EOLPRO operation, the only link address strings on 
mass storage remaining unpatched will be those for which no entry point 
names had been encountered during the current Loader Operation. 

EOLPRO begins its Loader Table check by setting SW 6 to 0. If the Loader 
Table is emtpy such that 

(SW 6 ) = (TABSTR*5 where (TABCTR) = 0, 

a jump is made to E0LJ00 where the exit procedure described above will 
take place. If (SW 6 ) f- (TABCTR)*5, a jump is made to E0LPR1. 

3^ .9.7.3. 1 E0LPR1 

The following occurs at E0LPR1: 
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1. The address equal to (SW6)+(TABLIM) is placed in INPCTR, where 
(INPCTR) is the 1st word address of a Loader Table entry. WORD 4 
of this entry is placed in LINK. WR0D 3 of this entry is 
placed in ENTPNT. 

2. If there is no other entry in the Loader Table for this name 
(LINK) = -0 and a jump is made to E0LJ10. If (LINK) ^ _o, 
the address in LINK points to WORD 3 of some other entry in 
the Loader Table containing this name. With such being the 
case: 

a. If (ENTPNT) ^-0, the entry whose 1st word address is 
(TABLIM) + (SW6) is not an entry point name. A lump is made 

t to EOLJ10. 

b. If (ENTPNT) > 0, the entry whose 1st address is (TABLIM) 

+ (SW6) is an entry point name. A jump is made to E0LPR2. 

3. At EOLJ10 the index count in SW6 is increased by 5 - 

(SW6) 4* 5 — >SW6. 

The end of the Loader Table will have been reached when 
(SW6) = (TABCTR)*5 

If this condition is met, a jump is made to E0LJ00 wheee the 
exit procedure described in 28.9.7.1 occurs. 

If this condition is not met, the E0LPR0 routine will proceed 
to E0LPR1 to look at another of the Loader Table entries. 

31 .9. 7.3.2 E0LPR2 

At E0LPR2, the next Loader Table entry for this name is located. The 
last word of the current entry for this name is "plugged” with a 
"-0", or 

-0 1 — > ( INPCTR )+4. 

The address of WORD 3 for the next Loader Table entry occurs in LINK. 

The next Loader Table entry for this name is an external name entry, 
and WORD 3 contains the one’s complement of the link address. The 
link address is placed in temporary storage: 

-((LINK)) ^ INPWRD 

This entry point address from the current Loader Table entry replaces 
this link address in the next Loader Table entry for this name. 

(ENTPNT) > (LINK) 
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WORD 5 of the next Loader Table entry for this name is recorded in 
LINKSW: 

( (LINK)- 3) — >NGRLSW 

The link address from the next Loader Table entry for this name is 
placed in LINK: 

(INPWRD) — ^ LINK 

A return jump is made to the TABIO (see item 28.9.7.5) routine with 
(A) = -0. This is to place the Load Time Data Storage Buffer (if 
there is one) and the Loader Table in temporary storage in the scratch 
area on mass storage (see item 29.9.7.5.). 

Upon return from TABIO, a jump is made to E0LPR4. 

3T.9.7.3.3 E0LPR4 

At E0LPR4, the EOLPRO routine will locate on mass storage the command 
sequence containing the link address string to be patched. It will 
bring this information into core, perform the patching operation and 
write the command sequence back onto mass storage in the sectors from 
which it came. As a result of the return jump to the TABIO routine, 
there is a maximum amount of unprotected core in which to place the 
command sequence as it is brought in from mass storage. The steps 
necessary to carry out the above operation are as follows: 

1. (LINK) = the 1st address in the link address string to be 
patched. The quotient of the division 

(LINK)-(LWRLIM)- 1 
96 

represents the relative value for the sector number containing 
(LINK). The A register is set to this value as a result of 
the division. 

2. The number of words to be read from mass storage is computed 
and recorded in NUMWDS - 

(A)+l — ^ A 

(A)*96 — > NUMWDS 

3. The upper and lower limits of Load Time Core for this opera- 
tion are respectively (LWRLIM) and (BASE). The location 
PRODIF is set to the value = difference between execution 
time upper limit address minus load time upper limit address. 
The execution time upper limit address for reading from mass 
storage is - 

(NUMWDS) + (LWRLIM)+1. 

Therefore - 

(NUMWDS )+(LWRLIM)+l- (BASE) — ^(PRODIF) . 
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4. It is now necessary to compute the word length of unprotected 
core to the highest possible integer multiple of 96. 

(BASE) - (LWRLIM)-l „ „ 

^ A, Q 

(A) * 96 — =^A Reg. 

5. Set the location NUMWDS to the smallest of the two values of 
(A reg.) and (NUMWDS). 

If (A) <(NUMWDS), 

(A) -^NUMWDS. 

6. The location ADDRS is set to the load time core starting 
address for reading from mass storage: 

(BASE)- (NUMWDS) 9 ADDRS 


7. The A register is set to the execution time value of the 
starting address for reading from mass storage. 

(ADDRESS) + ( PROD IF)- >k 

8. The relative value of the starting sector number for reading 
from mass storage is computed and recorded in SECNUM. 


(A)-(LWRLIM)-! 

96 


Q 


(A) SECNUM 

9. The DPRADD routine (See item 28.8.11) is used to compute the 
absolute value of the starting sector number for reading from 
mass storage. Upon return from DPRADD, the number is recorded 
in SECTNO and SECTN0+1. 

10. The A register is set to the load time starting address and 

the Q register to the word length for reading from mass storage: 

(ADDRS) .-— 7 * A 
(NUMWDS) Q 

A return jump is made to MDRIV (see item 28.7.3) to read from 
mass storage. 

11. The location DATLEN is set to 0. A return jump is made to the 
LINK1 routine to perform the patch operation on the command 
sequence brought in from mass storage. 

12. Upon return from LINK1, the command sequence read in from 
mass storage will be rewritten onto the mass storage device. 

The DPRADD routine is used to compute the absolute value of the 
starting sector number. The A register is set to the load 
time starting address = (ADDRS). The Q register is set to 

the number of words to be written = (NUMWDS). The Q register 
is then complemented since the mass storage I/O operation is 
writing. A return jump is then made to MDRIV. 
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13. Upon return from MDRIV, PRODIF and DATLEN are reset to their 
original values: 

(DIFC0N) — * PRODIF 

(DATNUM) — > DATLEN 

14. The A register is set to a 0 and a return jump is made to 
TABIO (see item 28.9.7.5) in order to restore the Load Time 
Data Storage Buffer and the Loader Table to their former 
positions in unprotected core. 

15. Upon return from TABIO, EOLPRO will look at LINKSW in order 
to determine if there are any other Loader Table entries by 
this name. If 

(LINKSW) = $FFF , 

there are no other Loader Table entries by this name. A jump 
is made to E0LJ10. (Refer to step 3 in item 28.9.7.3.1.) 

If (LINKSW) ^ $FFFF, there is at least one other entry in 
the Loader table for this name. The location INPCTR is set to 

(LINKSW)- 3 

and a jump is made to E0LJ11 in order to process that entry. 
The location E0LJ11 is 2 locations after E0LPR1. The Loader 
Table entry for this name which is stored at (LINKSW)-3 
will be processed in the manner described in item 28.9.7.3.1. 

.9.7.4 Exit from the EOLPRO Routine 

The name LOADER is declared as an entry point name in the LOADER 
routine, and as an external name in the EOLPRO routine. The exit 
from EOLPRO is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 

3^ .9.7.5 Subroutines Used by and Internal to EOLPRO 

The only subroutine used by and internal to EOLPRO is TABIO. TABIO 
is used to record the Load Time Data Storage Buffer and the Loader 
Table onto mass storage so that the locations in core they occupy may 
be used for other purposes. When the use of this core is no longer 
required, the same TABIO routine will restore the Load Time Data 
Storage Buffer and the Loader Table to core. Entry to the TABIO 
subroutine is with a return jump to the location whose label is 
TABIO. 
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In order to dump these segments of core on mass storage, TABIO must 
be entered with (A) = -0. In order to restore the information to 
core, TABIO must be entered with (A) = +0. Upon entry to TABIO, the 
A register is recorded in the location TBIOSW. 

if (DSECNO) = 0, the TABIO routine will assume there is no Load Time 
Data Storage Buffer. If (DSECNO) is not zero, the DPRADD routine is 
used to compute the absolute value of the starting sector number for 
transferring the Load Time Data StorageBuf f er to or from mass storage. 

The starting address = (DATSTR) is placed in the A register and the 
number of words = (DATLEN) is placed in the Q register. If (TBIOSW) 
is negative, the Q register is complemented for writing. A return 
jump to MDRIV will cause the I/O to be performed. 

If (TABSNO) = 0, the TABIO routine will assume there is no Loader 
Table. If (TABSNO) is not zero, the DPRADD routine is used to compute 
the absolute value of the starting secotr number for transferring the 
Loader Table to or from mass storage. The starting address is equal 
to (TABLIM) is placed in the A register, and the number of words to 
be written or read is equal to (TABCTR)*5 is placed in the Q register. 

If (TABIOSW) is negative, the Q register is complemented for a 
write operation. A return jump is made to MDRIV in order to perform 
the I/O operation. 

Exit from the TABIO routine is with a jump to the location TABIO 
where (TABIO) = address placed there at the time of entry. 

3^.9. 7.6 Subroutines Used by and External to EOLPRO 

is used to patch each location in a string of link 
addresses with an entry point address. LINK1 is entered 
with a return jump to 164-t(I). (See item 28.8.8.) 

is used for I/O on mass storage. MDRIV is entered with 
a return jump to the location whose name is MDRIV and 
this name is declared as an external by the EOLPRO routine. 
(See item 28.7.3.) 

is used to compute the absolute value of the starting 
sector number for a mass storage I/O operation DPRADD 
is entered with a return jump to the location 200+(I). 

(See item 28.8. 11.) 


1. LINK1 

2. MDRIV 

3. DPRADD 
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ADRPRO is the routine used to look up an entry point. 
Loader tries to find the specified name in its symbol 
table. 


3H. H.fl.l Constant Table Storage referenced by ADRPRO 

NAHE STORAGE POSITION 

TABLIH 7 


INPWRD 

10 

INPREL 

11 

INPCTR 

IS 

BLANKS 

ia 

SYI1STR 

ih 

SCANSW 

EE 

WRDCNT 

S4 

SUb 

ea 

INPUT 

EH 

TABSCH 

100 

INPXCO 

117 

AINPUT 

Ibl 

a INPUT 

IbS 

NSflUAN 

171 

The Constants 

are used as follows: 

1. AINPUT 

contains one of the entrance parameters 
for the Loader Operation 

3. BLANKS 

contains the ASCII code for E spaces 

3. INPCTR 

used as on address counter to reference 
entries in the input block 

4 • INPREL 

contains the terminating field when the 
field is extracted using the scan 
routine 

5. INPUT 

storage area for input blocks read by 
the Loader 

b. INPWRD 

contains tne binary valve for the 
numeric fields extracted from the 
input area by the SCAN routine 

7. INPXCO 

contains the address constant INPUT 
where INPUT is the 1st location of the 
area for storage of relocatable binary 
input blocks read by the Loader 
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6. (2INPUT 
R. SCAN 

10. SCANSU 

11. SUb 

15. SYNSTR 

13. TABLIN 
1M. TABSCH 
IS. WRDCNT 
lb. NSflUAN 


Q. register upon entry to the Loader 

SCAN routine entrance 

used by SCAN to determine the type 
of ASCII field 

As a result of a Loader Table searchi 
it contains a positive valve which is 
added to {TABLIN} in order to locate a 
Loader Table entry with a name to match 
on input block entry. 

used as storage for up to b characters 
of a field extracted from the input block 
by the SCAN routine. 

base address of the Loader Table 

loader table search routine entrance 

address of character reference counter 

size of absolute record placed by the 
loader on mass storage. 


Entry to ADRPRO 

The name ADRPRO is declared external in the BRANCH 
routine and as an entry in the ADRPRO routine. 

BR.R.fl.B Starting Address 

The starting address may consist of either an entry 
point name {up to b characters} with or without an in- 
crement! or an absolute hexadecimal address of up to 
4 hex digits and no increment. If the starting address 
is absolute! it is extremely important that the hex- 
adecimal number be preceded by It is otherwise 

assumed to be a decimal number. However! where an 
increment is used with an entry point name! the increment 
is assumed to be a hexadecimal number. Also! neither an 
absolute starting address nor an entry point name may be 
preceded by an algebraic sign of or *-* although 

a hexadecimal increment may have such a leading 
algebraic sign. 
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Entry Point Names and Increments as a Starting Address 

The A register is set to 0. Then there is a return 
transfer to SCAN. Upon return from SCANn a six 
character name is stored at the 3 locations SYNSTR-* 

SYMSTR+1 and SYMSTR+2. The name must appear in some 
entry of the Loader Tablen and the address associated 
with the name must be an entry point address. A return 
jump is made to TABSCH to search for the entry point name 
in the Loader Table. Upon return from TABSCH one of the 
following occurs: 

1. If SUb is negativen an error has occurred. 

A jump is made to the error routine to print out 
^E3^ and wait for a reply. 

B. If no error has occurred CSlilbl = an index to the loader 
loader table entry. 

Upon return from SCANt the character which follows the 
entry point name is contained in the location -CINPRELI. 

If this character is a commai there is no hexadecimal 
increment included in the starting address. If this 
character is a plus or minusi there is either a possitive 
or negative increment included in the starting address. 

The A register is set to the ASCII code for the leading 
algebraic sign. 


-CINPREL} A 

A second return jump is made to SCAN to pick up the 
binary value of this increment. 

Upon return from SCANt {SYNSTR! must be zeroi -CINPURD! 
must contain the binary value of the increment -Cor its 
complement if negative! and CINPREL! must contain a 
space or carriage return. 

If no error has occurred -CINPURD! is added to AINPUT! 
and the result is placed in -CAINPUTI. 
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Ml MASS n EMORY DRIVERS - NASDRV and DBLDRV 

41-1 FUNCTION 


41.1*1 MASDRV is a control program for the drivers that reside 

on mass memory. 

It reads the driver into the reserved buffer area or queues 
the driver if a busy driver is in the buffer area. It also 
queues the 1713 driver if. although the buffer area is 
availabler the 1713 is busy. 

41 .1.2 DBLDRV is a dual buffer version of NASDRV. 


41 .3 ENTRY POINTS 

NASDRV - Scheduled by the Read/Write request processor 
as the driver initiator. 

NAS300 - Checks if buffer is available for a mass memory 

driver and takes the driver off the queue. It is 
scheduled when a driver no longer needs the buffer 
it resides in {driver has no more requests! • 

flASINT - Entry that is stored into the driver’s continuator 
address when driver is not busy. 

NASHNG - Entry that is stored into driver error routine 
address when driver is not busy 

NAS4DQ - Entered from the reader or punch initiators when 
the 1713 is busy. It will put these drivers on 
the queue . 

NAS5D0 - Entered from the keyboard/pr i nter driver when the 

1713 is busy. It will set the ^keyboard is waiting' 
flag. 
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41 .3 


41 .4 
41 .4.1 


41 .4.2 


EXTERNALS AND DESCRIPTION 

ALTDEV - System subroutine that handles device errors 
{Alternate Device Handler! 

GENERAL PROGRAM INFORMATION 

EQUATES 

CflPRL - Priority level of MASDRV or DBLDRV. No driver 
residing on mass memory can have an initiator 
priority below this priority level. 

NMASDR - Number of drivers residing on mass memory. 

LNGTH - Must be equated to the length of the largest 
driver in MASDRV or the length of the two 
largest drivers in DBLDRV. 

ASSEMBLY OPTIONS O, 

W 

Each driver that can be mass memory resident has a 
correspond i ng equate in MASDRV and DBLDRV. If the 
driver is selected to reside on mass memory ? the 
correspond i ng equate should be set to a 1. This will 
cause the addresses of MASDRV , MASINT » and MASHNG to be 
inserted in the driver^s initiatorr continuatorr and error 
routine in the physical device table instead on addresses 
within the driver {the exceptions are the tape drivers}. 

If any tape driver is selected to be mass memory residentr 
the addresses in the physical device table will contain 
addresses in MASDRV or DBLDRV of the routine that handles 
the tape drivers feature of multiple logical units on one 
device. 
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41 .7 GENERAL DESIGN PECULIARITIES 

41 .7.1 MASDRV and DBLDRV are re-entrant only while they are 

queuing the drivers that have been scheduled. Because 
both MASDRV and DBLDRV contain a mass storage read 
request, they cannot be made completely reentrant. 
Because of this 1 im i tat ion , the main program of MASDRV 
or DBLDRV is always scheduled to run at a single 
priority level determined by the equate CMPRL- 


41 .6 PROGRAM LOGIC 

41 .a.l MASDRV 

MASDRV is entered with the <3 register set to the phys i ca 1 
device table address of the driver. The driver is then 
put on the queue. If the current priority level is the 
same as the priority level MASDRV runs at> MASB00 is 
enteredr otherwise MASB00 is scheduled at the correct 
priority level. MAS3DQ checks if any driver is in the 
buffer andr if noti takes a driver off the queue. If there 
is no driver on the queue the program will exit to the 
dispatcher. 

If a driver is currently in the buffer , a check of word 5 
of its physical device table is made -Cif the driver is 
a magnetic tape logical unit, the location ADRINT is 
checked}. If zero {driver not busy} the PHSYTB of the 
current driver in the buffer is stuffed with the addresses 
of MASDRV * MASINT i and MASHNG and the check of the queue 
is then made. If the current driver is busyr exit is made 
to dispatcher. 

The sector number and 1 ength of the new driver is stored 
in the mass storage read request and the dr i ver is read 
into the buffer area . At comp 1 et i on of the read* the 
request is checked for error . If there was an error , 
exit is made to the A 1 ternate Device Handler. If there 
was no error, exit is made to the first location of the 
buffer which will be the dr i ver i n i t i ator rout i ne • 
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41 .a.e DBLDRV 

DBLDRV functions the same as MASDRV except that it will 
check both buffers for ava i l ab i 1 i ty . 

m-fi.B 1713 CONSIDERATIONS 

When the 1713 driver is present in the systerrw NAS300 
will check if the keyboard is waiting to be executed. The 
keyboard is given priority in the event the system is 
waiting to output a message -Ci.e. from the Alternate 
Device Handler!. 

The ''keyboard wait' 7 flag is only set when the keyboard 
driver has been scheduled and finds the 1713 busy with a 
read or punch operation. The driver then exits to flASSOO 
which sets this flag- 

If the 1713 reader or punch drivers find the 1713 busy after 
they have been initiatedr they wi I I return to NASMOQr which 
put them on the queue. 
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4 ^.Q Buffered Data Channel Allocation “ BUFALC 
45- 1 Program Function 

BUFALC makes it possible to have more than one device 
connected to the 170b. I/O requests are queued on a 
first“in» first”out basis. 

MB- 2 , Int erfa ce s 

Return is made to P+3 in the driver with I = Current 
Phystb address. 

M2. 3 Ln t r. v In terf ac es 

A = 0 if FNR has found no more requests 
A / 0 if FNR has found a request 

MB* M Internal Description 

The following calling sequence is required for entry to 
BUFALC: 


EXT 

BUFALC 


RTJ 

BUFALC 


ADC 

D 

170b reject address 

ADC 

0 

Current Phystb address 
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Entry to BUFALC is made after P+1 and P+S returns from 
FNR. The current status of the 170b is checked. If 
the 170b is availabler return is made to P+3 in the 
driver with the I register intact. If the 170b is busy» 
the return address is put on the queue and exit made 
to the dispatcher. 

When no more requests are found via FNR the queue is checked 
for any waiting requests. If any» I is restored and 
return is made to P+3 in the driver. If no more requests 
are found» exit is made to the dispatcher. 

42.5 <2ueue 

A queue is maintained for storage of the driver return 
address. One word is reserved for each device on the 
buffered data channel. 
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43.0 ENGINEERING FILE 

43.1 Program Name: Engineering File Recording Routine LOG 

43.1.1 Function: 

This program records the error from the failing device 
in an error table in core. 

43.1.2 Entry Point Names: 

LOG - entry to program 

SCHFLG - switch for the logging overlay 

ERRTOP - pointer to current location in error table 

flASNN ~ number of mass memory devices in system 

CORTBL - engineering file for mass memory devices 

ETBLE - error table 

43.1-3 Externals: 

NUP1LU - Number of logical units in system 
LOGGER - Name of program which moves the error into 
the proper engineering file. 

This program is mass memory resident 
L0G1A - Physical Device Table Thread 

43.1.4 En~ry Interfaces 

From the Alternate Device Handler 

I - Base of the Physical Device table of the failing 
device 

<3 - Error word -terror code bits 5-0 

logical unit of failing device 15-b} 

A - Zero 

From a driver -Cto log a recoverable error} 

I ~ Base of the Physical Device Table of the failing 
device 

(3 - Error Code {right adjusted} 

A - / 0 
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M3. 1.5 External Interface 

The program exits via an indirect jump through its 
entry cell 

I - Base of the Physical Device Table of the failing 
device {restored to its value at entry! 

<2 - Restored to value at entry 

A - Restored to value at entry 

M3.1.L General Program Information 

This routine is used to record an error. It is called 
by the Alternate Device Handler or by a driver when a 
hardware error occurs on a device. This program logs 
the error to an error table. It then writes the updated 
error table out on the system image on mass memory. 
Finally it schedules the mass memory resident program 
which will move the error to the engineering file for 
the logical unit assigned to the failing device. 

Low core cell SET holds the base address of the system 
image on mass memory. This program is assembled as a 
part of the Alternate Device Handler. It isi howevern 
not a part of the Alternate Device Handler and could be 
built {with minor modifications! as a separate module. 
This program uses volatile storage. 

NASNM - Number of mass memory devices in system 
Equate which must be set for each system 

ETBLE 


D 

LU+EC WORD 


1 

ESTATE 

L _ _ l 

2 

LU + EC WORD 

1 

3 

ESTATE 

4 

h ~”~ LU + EC WORD 

S 

TATd 

b 

LU+EC WORD 1 

7 

ESTATE 

fi 

LU+EC WORD 

1 


ESTATE 

10 

LU+EC WORD 

11 

LS 1 A 1 d ' 

i 
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The error word and status for an error is stored in 
the next available 2 word slot in ETBLE. If the table 
is full the error data will be stored in the first entry 
{the oldest error being lost in that case). In other 
words ETBLE is circular table. The logging routine is 
scheduled whenever an error is recorded. However it is 
possible to get several errors before the logging routine 
gets control and logs them to the engineering file. 

M3. 1. 7 General Design Pecularities 

1.7.1 LOG is a reentrant program. 

1.7.2 ERRTOPn ETBLE tablei and CORTBL must be block stored 
together . 

1.7.3 CORTBL is the entry point for the engineering files 
for the mass memory devices. 

1.7. M The engineering files for mass memory devices are kept 

in core. They must be block stored as stated in section 
1.7.2. Further they must be stored in the same order 
as they are arranged in the LOGIA table. 

1.7.5 Errors are logged from the Alternate Device Handler - 

ADEV or from the subroutine in which the error occurred. 

1.7. L LOG is a subroutine 


M3. 1. fl Program Logic 

The program gets volatile storage. It saves the input 
parameters and positions the error code. Then it finds the 
logical unit by comparing the PDT Base in I with the LOGIA 
table to find a match. The program merges the logical unit and 
the error code into the error word. The status word ESTAT2 is 
read from the PDT. Then the error word and the status word are 
moved into the next 2 available locations in ETBLE. To guard 
against the possioility of losing these errors in case core 
should get clobbered ETBLE is written out onto the core image 
on mass memory. Just before exiting the program schedules the 
logging routine LOGGER to move the error to the appropriate 
engineering file. 
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M3. 3 Program Name: Engineering File Logging Routine LOGGER 

M3. 5.1 Function: 


This routine moves the error data from the Error Table 
ETBLE to the engineering file for the logical unit 
assigned to the physical device on which the error occurred. 

M3. 3. 3 Entry Point Names: 

LOGR - entry to this routine 

M3 . 3 • 3 Externals Description 


ETBLE 

CORTBL 

LOGIA 

SCHFLG 

ERRTOP 


Error table 

Engineering File for mass memory devices 

Physical Device Table Thread 

LOGGER switchi = 1 Logger Scheduled^ 

= 0 Logger not scheduled 
Pointer into ETBLE 


M3. 3. M Entry Interfaces 

No parameters are passed via the register. 
M3. 3 . S External Interfaces 




The registers are not restored on exit. There are no 
parameters passed on exit. 

M3. 3. b General Program Information 

lb.1 The program is mass memory resident 

lb. 3 Engineering Files for all physical devices except 
the mass memory devices are kept on mass memory. 

lb. 3 Engineering Files for mass memory devices are kept 
in core. 

Ib.M Errors are stored with the most recent at the top 
of the Error bJordi status word area in the 
Engineering File. Errors are lost off the bottom. 

H3. 3 . 7 General Design Pecularities 

17.1 This program uses the word addressable disk driver. 
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43. 3. A Program Logic: 

This program moves the errors from the error table to 
the Engineering File. 

The program gets an error from the error table . 

It finds the logical unit on which the error occurred. 

It reads the engineering file for that logical unit into 
a buffer in core. 

NOTE: -Clf the error to be logged occurred on a mass memory device 
the program will use the engineering file for the device 
that is already in core. It does not need to read one in 
from mass storage. It uses duplicate logic to that used 
for the non-mass memory devices. After the file is updated-i 
it updates the portion of the system image on mass memory •> 

It moves the error and status words downi moving out the 
oldest error-« to make room for this new error date. 

It then moves the new error data into the engineering file 
in the buffer. 

It increments the error counter for the error code. 

It writes out the updated file into the engineering file 
on mass storage. 

If there are more errors in the error table 
it goes back to handle the next error. 

If there are no more errors in the error table it clears 
the error table-i resets the error table pointer and exits. 
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-43.3 Program Name: Engineering File Display SELFS 

43.3.1 Function: 

The purpose of this program is to display the 
engineering file- 

43.3.2 Entry Point Names: 

SELFS - Program Entry 

43. 3. 3 Externals Description 

CORTBL - Entry address for the core resident engineering 
files {for the. mass memory devices! 

MASNM - Number of mass memory devices in system 

NUMLU - Number of logical units in system 

43-3.4 Entry Interfaces 

There are no input parameters on entry. 

43. 3. S External Interfaces 

There are no output parameters 

4 3. 3. b General Program Information: 

This program is mass memory resident 

The display of the engineering file is on the standard 
print output device. 

This program can be called by: 

1. Manual Interrupt 

2 . Type: SELFS 

The file is printed. On completion hit Manual 
Interrupt to continue the system running. 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION ... _ c __ 

Arden Hills Development DIVISION *”AK « 1971 

DOCUMENT CLASS __U1§ PAGE NO 1! 

PRODUCT NAME 1700 Operating System I 

PRODUCT MODEL Kin EDDLH3.D MACHINE SERIES IkZflD 


*43. 3. 7 General Design Peculiarities 

This program uses the word addressable disk driver- 
This is a mass memory resident program- 
M3- 3- fl Program Logic 

The program stores its own location and initializes 
counters - 

Then it locates the engineering file on mass storage 
and reads in a file- 

If the file is empty it goes to get the next file- 

If the file is not empty it moves the file name into 
the printing buffer and prints it- 

It then continues printing the filei converting the status 
words and error codes attaching labels and inserting spacing 
until the file is printed. 

When the complete file is printed it goes to get the 
next file- 

In getting the file it checks to see if it has processed 
the last file on mass storage- If it has not it returns 
to process the next file- 

If all files on mass storage are processed it processes 
the engineering file in core {those kept for the mass 
memory devices! • When these are processed the program 
releases itself and exits- 
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44. □ 1711 TELETYPE DRIVER 

44.1 ENTRY POINTS 

TYPEI initiator entry 

TYPEDR continuator entry 

TYPERR error entry 

44.5 EXTERNALS 

None 

44.3 ENTRY INTERFACES 

<2 = address of the PHYSTB 

44.4 EXTERNAL INTERFACES 

None f 

'O’* 

44. 5 GENERAL PROGRAM INFORMATION 

44.5.1 PHYSICAL DEVICE TABLE 

The Teletypewri ter driver refers to the physical 
equipment table entries with the following names: 


CALL 

= word 7 


STATUS 

= word 15 


SWITCH 

= word 1 


CORE 

= word ID 


LASTP1 

= word 11 


TEMP 

= word 15 


COREIN 

= word 13 


ERRTAB 

= word A 


TIME 

= word 4 


CALL: 

<2 setting to get unit status. 


STATUS: 

equipment status. 


SWITCH*. 

Switch settings listed below. 


CORE: 

address into which the next data word is to 
be stored. 

LASTP1 : 

the last core location plus one to 
stored into. 

be 

TEMP: 

Temporary storage. 


COREIN: 

Original starting location in case 
used* 

cancel is 
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ERRTAB: request status word. 

TIME: Diagnostic clock location. 

''SWITCH' 7 bits are used as follows: 

Read 

bit 0 - zero for read 

1 - one if formatted 

2 - one if lower 

M - one for pass switch 
5 - one for cancel 

(□&? - null count for turning on the break light 
Write 

bit 0 - one for write 

1 - one if formatted 

2 - one if lower 

3 - one if operation complete 

M - zero if 1st character -Cto send carriage return! 

S - zero for control -Cto send line feed! 

L&7 - cancel count - to send 3 cancel characters 
after TAB-. VTAB & FORM 

MM.b DESCRIPTION 

MM.b.l INITIATOR 

TYPEI is the initiating entry to the driver. At entry-, 
routine FNR is called. If no request is found exit is 
made to the dispatcher. 

If one is found the PHYSTBS are initialized. Write mode 
if set and interrupt on data-, alarm and EOT selected. 

The diagnostic clack is set-, a cancel character is output 
to cause an interrupt and exit is made to the dispatcher. 
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44. b. 3 CONTINUATOR 


TYPEDR is the continuator or interrupt time entry. At 
entryi if caused by manual interrupt! the pending manual 
interrupt bit is set! interrupts are cleared and interrupt 
on datai alarm and EOT selected. If the unit is busy 
and read mode is seti a character is input. If the unit 
is not busyn pending manual interrupt is cleared. If the 
unit is in use! it is marked not in use and the location 
of the interrupted request put in (2. If not in use! zero 
is put in <2. Exit is then made to the manual interrupt 
module MANINT. 

44. b. 3 ERROR ENTRY 

If entry was not due to manual interrupt but was caused 
by alarm or diagnostic clock procedure ERROR is entered. 

This procedure sets the error field of PHYSTB1 and 
enters the completion procedure. 

44. b. 4 COMPLETION kV 

If the interrupt was EOP or the completion switch is set! 
the completion routine is entered. This procedure clears 
interrupts! resets the diagnostic clock! schedules the 
completion routine and re-enters TYPEI. 

44 . b . S DATA TRANSFER OPERATION 

If entry was due to data interrupt! status is checked 
to see if the teletypewri ter motor is on. If noti a cancel 
character is sent and exit is made to the dispatcher. 

If the motor is on and this is a write operation! the 
WRITE procedure is entered. If it is a read operation 
and the unit is busy -C a character has been typed} 
procedure READ is entered. If it is a formatted read! 
null count is checked to see if two nulls have been sent 
out to turn on the break light. If noti a null is sent 
out and exit is made to the dispatcher. If the nulls have 
been sent out! interrupts are cleared! read mode is set! 
interrupt on data! alarm and EOT is selected and exit is 
made to the dispatcher. 
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If it is a write operation and the format switch is seti 
the 1st character switch is checked. If it is set a 
carriage return is sent! the 1st character switch is 
not set! the control switch is reset and exit is made 
to dispatcher. If the control switch was not set the 
spacer count is checked. If it is non zero! it is 
decremented! a cancel character is sent out and exit is 
made to the dispatcher. If the spacer count was zero or 
the write was not formatted! the data word from core is 
placed in (2. If the upper character switch is set! (2 
is shifted right A bits. The upper 1 bits of (2 are then 
cleared. If the character is a null {zero>i $?F {cancel! 
is substituted. If the character is a TABi VTAB or FORMi 
the spacer count is set to 3. The character is then sent 
out. If this is the last word {unformatted single 
character output} the completion switch is set and exit 
is made to the dispatcher- If it is now set for upper! 
the core location is incremented. If it is now the last 
location! the completion switch is set. The dispatcher 
is then entered. 

If the operation was read and the unit is busy! the 
character is input. If the unit is not marked in use 
exit is made to the dispatcher. If it is in use the 
parity of the character just input is checked. If it is 
i ncorrect exit is made to procedure ERROR. 

If parity is correct the format switch is checked. If 
set! the character just input is checked. If it is a line 
feed exit is made to the dispatcher. If it is a carriage 
return the cancel switch is checked. If it is not set 
the common completion routine is entered. If it is set 
the input buffer is backgrouned to all $FFFF. Core 
location is set back to the original setting effectively 
repeating the request. If it is a cancel character the 
cancel and pass switches are set and exit is made to the 
dispatcher. If it is not a cancel character the pass 
switch is checked. If it is set exit is made to the 
dispatcher. If the pass switch is not set or the request 
is not formatted $FF is put into the upper half of the 
word containing the character just input. The upper lower 
switch is then checked. If set for upper the word is 
shifted left A bits and stored into the specified core 
location. If set for lower the word is added with the 
specified core location. If this is the last wordi this 
was an unformatted single character input operation and 
exit is made to the common completion routine. If not! 
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the upper lower switch is reversed. If now set for 
lower exit is made to the dispatcher. If now set for 
upper the core location is incremented. If it is not 
now the last word exit is made to the dispatcher. If 
it is the last word and the input is unformatted exit 
is made to the common completion procedure* If the 
operation is formatted the pass switch is set and exit is 
made to the dispatcher. 
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Teletypewri ter Driver operates under the 
CONTROL DATA 1700 3.0 Operating System to provide the 
ca^&ility for keyboard or paper tape reader input and 
printer or paper tape punch output. The keyboard/printer 
module is core resident. The paper tape reader module 

paper tape punch module are mass memory resident. 

MODULES 

The 1713 Teletypewri ter Driver is composed of M modules: 

1». MASDRV - Mass Memory Driver Control program. 

2. S13001 - Keyboard/Printer Driver. 

3. SI 300 2 - Paper Tape Reader Driver. 

M. S13003 - Paper Tape Punch Driver. 


MS. 3 1713 KEYBOARD/PRINTER - S13001 

MS. 3.1 ENTRY SYMBOLS 

S13KI Driver initiator address 

S13KC Driver continuator address 

_ S13KER Driver error routine for diagnostic timer 

SETCDI Error routine which forms the error word for 

the Alternate Device handler. 

MS. 3. 2 EXTERNAL SYMBOLS 


MAS 500 


%■. ¥W¥:¥,. 

.MI; 

%AS30i 




L 1 




'S > ‘ ? 

,;j ;-**% 2 1**- ’ • ‘ 


-fy 
$ 1 


v -v 


Entry point in MASDRV/DBLDRV* It will queue the 
keyboard/printer if the 1713 is busy on entry 
to the initiator of the driver. 

Entry point in MINTi which will process manual 
interrupts. 

Entry in MASDRV/DBLDRV. It will check if any 
mass memory drivers are waiting to use core. 

Entry in the systems tables and parameters. 
Contains the current setting of the mode switch. 


T€; 
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S13BZY Entry in the systems tables and parameters. 

Contains logical unit associfeed with the module 
currently busy with the 1713. It will be zero 
if the 1713 is not busy. 

NAKE<2 Routine that sets the proper error bits in 

Word 1 of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 


45.3.3 ENTRY INTERFACES 

a = address of the PHYSTB 


45.3.4 PHYSICAL DEVICE TABLE ENTRIES 

CALL 7 - fl setting to get unit status. 

STATUS 15 “ equipment status. 

SWITCH 1 - switch settings listed below. ^ \ 

CORE 10 - address into which the next data word is to Ay 

be stored. 

LASTP1 11 - the last core location to be stored into plus 
one 

TEMP 15 - temporary storage for character just read. 

COREIN 13 - original starting location in case cancel is 
used. 

ERRTAB A - request status word. 

TINE 4 - diagnostic clock location. 

LU 5 - logical unit currently assigned to the device. 


^SWITCH* bits are used as follows: 

Read 

bit □ - zero for read 

1 - one if formatted 

5 - one if lower character 

4 - one for pass characters {until carriage return if 

5 - one for cancel formatted 

b&? - null count for turning on the break light 
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Uri te 

one for write 
one if formatted 
one if lower 

one if operation complete 

zero if 1st character -Cto send carriage return} 
zero for control -Cto send line feed} 
cancel count - to send IS cancel characters after 
TAB-. VTAB & FORM 

4S.3.S KEYBOARD DESCRIPTION 

45.3.5.1 INITIATOR 

S13KI is the initiating entry to the driver. At entry 
the 1713 is checked for busy-, if yes-, exit is made to 
MAS30D . 

If a request is found a check is made to determine if the 
device is in keyboard mode. If not-, keyboard mode and 
interrupt on EOP are selected and exit is made to the 
dispatcher. 

When the device is already in keyboard mode or keyboard 
mode has been selected and an EOP interrupt generated to 
indicate the switch of mode-, the PHYSTAB locations are 
initialized. Write mode is set and interrupt on data and 
alarm selected. If the operation is a read operation-, 
the diagnostic clock is set and a null character is output 
to cause an interrupt and exit is made to the dispatcher. 
If the operation is a write-, the write routine in the 
continuator is entered. 

4S.3.S.B CONTINUATOR 

Hanual Interrupt 

S13KC is the continuator entry. At entry-, if caused 
by a manual interrupt the manual interrupt processor is 
scheduled and a check is made for data or alarm. 


bit 


0 
1 
a 

3 

4 

s 
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If neither of these conditions exist! the device is 
clearedi interrupt on data is selected-! and exit is 
made to the dispatcher. 

Mode Switch 


If on entry an EOP interrupt was generated by a mode 
switch-i the interrupt is cleared and the initiator is 
re-entered. 

Error Entry 

If the interrupt was caused by an alarm condition the 
error routine SETCOD is entered. This routine performs 
these functions: 

1. Forms the error word for ALTDEV. 

2. Sets the error bits for NAKfl. 

3. Sets the counter for the diagnostic timer to -1. 

4. Clears the 1713 busy flag. 

5. Exits to the Alternate Device Handler CALTDEV}. 
Completion 

If the interrupt was EOP and not a mode switch or the 
completion switch is seti the completion routine is 
entered. This procedure clears interrupts! resets the 
diagnostic clock ! schedules the completion routine -i clears 
the 1713 busy flag and re-enters the initiator. 

Data Transfer Operation 


If entry was due to data interrupt! the switch word 
is checked to see if it is a read or write operation. 

If this is a write operation! the WRITE procedure 
is entered. If it is a read operation and the unit is 
busy Ca character has been typed} procedure READ is 
entered. If it is a formatted read! null count is 
checked to see if two nulls have been sent out to turn 
on the break light. If not! a null is sent out and exit 
is made to the dispatcher. If the nulls have been sent 
out! interrupts are cleared! read mode is seti interrupt 
on data and alarm is selected and exit is made to the 
dispatcher . 
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If it is a write operation and the format switch 
is setr the 1st character switch is checked- If 
it is set a carriage return is sentr the 1st character 
switch is reset and exit is made to dispatcher. If 
1st character switch is not setr the control switch 
is reset and exit is made to dispatcher. If the 
control switch was not set the spacer count is 
checked. If it is non zeror it is decrementedr a 
cancel character is sent out and exit is made to 
the dispatcher. If the spacer count was zero or 
the write was not formattedr the data word from 
core is placed in <3. If the upper character switch 
is setr Q is shifted right fi bits. The upper T bits 
of (3 are then cleared. If the character is a null 
{zero!. $7F {cancel! is substituted. If the 
character is a TABr V T A B » or FORM. the spacer count 
is set to IS- The character is then sent out. If 
this is the last word {unformatted single character 
output! the completion switch is set and exit is made 
to the dispatcher. If it is not the last character! 
the upper-lower switch is reversed. If the switch 
is now set for lower exit is made to the dispatcher. 

If it is now set for upper, the core location is 
incremented. If it is now the last location, the 
completion switch is set. The dispatcher is then 
entered . 

If the operation was read and the unit is busy, the 
character is input. The parity of the character 
just input is checked. If it is incorrect exit 
is made to procedure SETC0D. 

If parity is correct the format switch is checked- 
If set. the character just input is checked. If 
it is a line feed exit is made to the dispatcher. 

If it is a carriage return the cancel switch is 
checked. If it is not set the common completion 
routine is entered. If it is set the input buffer 
is backgrounded to all ones. Core location is set 
back to the original setting effectively repeating 
the request. If it is a cancel character the cancel 
and pass switches are set and exit is made to the 
dispatcher. If it is not a cancel character the 
pass switch is checked. If it is set exit is made 
to the dispatcher. If the pass switch is not set 
or the request is not formatted $FF is put into 
the upper half of the word containing the character 
just input- The upper lower switch is then checked. 

If set for upper the word is shifted left 6 bits 
and stored into the specified core location- 
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If set for lower the word is anded with the specified 
core location. If this is the last wordi this was 
an unformatted single character input operation and 
exit is made to the common completion routine. If 
notn the upper lower switch is reversed. If now set 
for lower exit is made to the dispatcher. If now set for 
upper the core location is incremented. If it is now the 
last word exit is made to the dispatcher. If it is the 
last word and the input is unformatted exit is made to the 
common completion procedure. If the operation is formatted 
the pass switch is set and exit is made to the dispatcher. 


45. 4 1713 PAPER TAPE READER - S13002 

45.4.1 Pseudo Entry Symbols 

HS13I Relative distance between initiator and first 
location in S13002. 

HS13RC Relative distance between continuator and first 
location in S13002. 

MS13RE Relative distance between error routine and 
first location in S13002. 


45.4.2 External Symbols 

HAS4Q0 Entry point in I1ASDRV. It will queue the reader 
if the 1713 is busy on entry to the initiator 
of the driver. 

S13M0D Entry in the systems tables and parameters. 

Contains the current setting of the mode switch. 

S13BZY Entry in the systems tables and parameters. 

Contains logical unit associated with the module 
currently busy with the 1713. It will be zero 
if the 1713 is not busy. 

MAKE<2 Routine that sets the proper error bits in Uord 1 
of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 


AA 3777 


PRINTED IN USA 




CONTROL DATA CORPORATION 

Arden Hills Development DIVISION 


MAR 5 1971 


DOCUMENT CLASS 

PRODUCT NAME 1700 Operating System 

PRODUCT MODEL NO E00b"3. 0 


45.7 

PAGE NO 


MACHINE SERIES i^QQ. 



MS. 4.3 PHYSICAL DEVICE TABLE 


The 1713 paper tape reader refers to the physical device 
table entries with the following names: 


CALL 

STATUS 

SWITCH 

LENGTH 

ADDRESS 

CORE 

LASTP1 

TEMP 

CHKSUM 

ERRTAB 

TIME 


<2 setting the get unit status, 
equipment status 
switch settings listed below, 
complement of remaining length of binary 
formatted record. 

address into which the next word read from tape 
is to be stored. 

address into which the next data word is to be 
stored. 

the last core location plus 1 to be stored into. 

temporary storage- 

checksum accumulator. 

request status word- 

diagnostic clock locations. 


^SWITCH* bits are used as follows: 

bit 0: 0 for a read operation 

1: 1 if formatted operation 

2 • 1 if lower character 

3: 1 if ASCII mode 

4: 0 if 1st word 

5: 1 if not control information 


MS. 4. 4 DESCRIPTION 
Initiator 

S13RI is the first location of the initiator. At entry the 
1713 busy flag -CS13BZY1 is checked for zero. If not zero! 
exit is made to MAS4Q0- If zeroi routine FNR is called. 

If no request is found the device is cleared and exit is 
made to MAS3D0. 
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If a request is found a check is made to determine if 
the device is in TTS mode. If noti TTS mode and 
interrupt on EOP are selected and exit is made -to the 
dispatcher. 

When the device is already in TTS moden or TIS mode has 
been selected and an EOP interrupt has been generated by 
the switch of mode-i the PHSTAB locations are initialized. 
Read mode and interrupt on data and alarm are selectedi 
and a start motion function is output to cause an interrupt. 
Start motion must be selected for each frame. The 
diagnostic clack is set and exit is made to the dispatcher. 


W * 
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Cont i nuator 


S13RC is the first location of the continuator- If the 
interrupt was caused by an alarm condition* the error 
routine ^SETCOD' 7 is entered. If the interrupt was caused 
by data* the data transfer -C^DATINT^l section is entered- 
If an EOP interrupt was generated by a switch of mode the 
initiator is re-entered. 

Data Transfer Operation 


If entry was not because of an alarm interrupt and the 
request is formatted binary* the first character switch is 
checked. If equal to zero* the character just input is checked 

to see if the high order bit is a one- If not* exit is made 

to the dispatcher. This is because the first word of a 
binary formatted record is the complement of the number of 
words in the record. Tape frames are passed until a frame 
having a one bit in the high order is found. When one is 
found* the first character switch is reset- The character 
is then checked to see if it is equal to $AA -O with parity!- 

If it is, the mode of the request is changed to ASCII and 

the appropriate point in the code is entered. If it is not 
equal to $AA but is greater, 1 is subtracted from the character 
This is to compensate for the fact that one is added by the 
punch driver in the equivalent situation. This is to prevent 
an actual length whose high order character is $AA from being 
m i s i nterpreted as being an ASCII record. If first character 
switch was not set control comes to this point- If the control 
switch is not set and the record length has not been decremented 
to zero the address of v length* 7 is put into ^address^ 7 . If 
the request was ASCII or was changed to ASCII* ^CORE^ 7 is 
checked to see if the requested number of words has been 
filled. If it has not* ' 7 core v is put into the ^address' 7 . 

If the record length had been decremented to zero or the 
requested number of words had been filled ''temp' 7 is put 
into ^address v . This is to pass characters in ASCII or 
,a l low the checKsum to come in binary, 
y 

If the request is ASCII* parity is checked. If incorrect* 
procedure ^SETC0D v is entered. If the request is formatted, 
the character is checked to see if it is a carriage return. 

If it is and it is the upper character ^CORE^ is incremented 
and the completion procedure is entered. If the character 
is a null {blank! line feed or cancel it is ignored and exit 
is made to the dispatcher. One bits are put in the upper A 
bits of the word containing the character. If it is the 
lower character, this word is added with the contents of 
^address' 7 and stored back into the same location. This word 
is then added to the checksum- If the request is formatted 
binary the record length is checked to see if it has been 
decremented to zero- If it has* the checksum is checked to 
see if it is zero. If not* procedure ^SETCOD^ 7 is 
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entered. If it is zero the completion procedure is 
entered. If the record length has not been decremented 
to zero the control switch is checked. If it is setn 
v C0RE v is checked to see if the requested number of words 
has been filledi if not ^CORE* is incremented. Record 
length is then decremented. The upper-lower character 
switch is reversed and the record length is checked to 
see if it has been decremented to zero. If it has the 
control switch is reset -Cto indicate that checksum will 
come in next}. If it has not the control switch is set. 

In both cases exit is made back to the dispatcher. If 
the upper lower switch had been set for upper i the word 
containing the character is shifted left eight bits and 
control is transferred below to see if this is the last 
location. If the request was not formatted binary n upper 
lower switch is reversed and exit is made to. dispatcher- 
If not the core location is incremented. If it is now 
1 ast and the request is not formatted exit is made to the 
completion routine. If it is formatted or the core location 
was not lasti the upper lower switch is checked. If not 
set for upperi exit is made to the common completion routine. 
If it is set for upper the core location is incremented 
and exit is made to the completion routine. 

45. S 1713 PAPER TAPE PUNCH - S13DQ3 

45.5.1 Pseudo Entry Symbols 

MS13PI Relative distance between initiator and first 

location in S130D3. 

MS13PC Relative distance between continuator and 

first location in S13D03. 

MS13PE Relative distance between diagnostic timer 

error routine and first location in S13003. 


45. 5. E External Symbols 

MAS40G Entry point in MASDRV. It will queue the 

reader if the 1713 is busy on entry to the 
initiator of the driver. 

S13M0D Entry in the systems tables and parameters. 

Contains the current setting of the mode switch. 
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S13BZY Entry in the systems tables and parameters. 

Contains logical unit associated with the 
module currently busy with the 1713. It will 
be zero if the 1713 is not busy. 

MAKES Routine that sets the proper error bits in 

Word 1 of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 


45. S. 3 PHYSICAL DEVICE TABLES 


The 1713 paper tape punch refers to the physical device 
table entries with the following names: 


CORE 

LASTP1 

SWITCH 

CHECKSUM 

CALL 

STATUS 

ERRTAB 

TEMP 

TIME 


current core location to be punched from 

last location plus 1 

switch settings listed below 

checksum accumulator 

& setting to get unit status 

machine status of the punch 

request status word 

temporary storage 

diagnostic clock location 


^SWITCH* bits are used as follows: 


45.5.4 


bit 0: 
1: 
2: 
3: 
4 : 
5: 
b&7 : 

a: 


1 for write operation 
1 if formatted operation 
1 if lower character 
1 if ASCII mode 
1 if not 1st word 

1 if line feed to be sent {control switch} 
count of spacer -Ccancel} characters to be sent 
1 if the operation is complete but the last 
interrupt has not yet come in. 


DESCRIPTION: 


Initiator 

S13PI is the first location of the initiator. At entry 
the 1713 busy flag {S13BZY} is checked for zero. If not 
zeron exit is made to MAS4D0. If zero-, routine FNR is 
called. If no request is found the device is cleared & 
exit is made to MAS300. 

If a request is found a check is made to determine if the 
device is in TTR mode. If not-i TTR mode and interrupt on 
EOP are selected and exit is made to the dispatcher. 
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When the device is already in TTR mode# or TTR mode has 
been selected and an E0P interrupt has been generated by 
the switch of mode* then write mode and interrupt on 
data and alarm are selected and the conti nuator is entered 
to output a character. 

Cont i nuator 


S13PC is the first location of the continuator- If the 
interrupt was caused by an alarm condition# the error 
routine ^SETCOD* 7 is entered. If the interrupt was caused 
by datar the data transfer section is entered- If an E0P 
interrupt was generated by a switch of mode the initiator 
is re-entered. 


Data Transfer 

If the entry was caused by a data interrupt# the control 
switch is checked. If set# a line feed character is output 
and routine G0DISP entered. If not the completion interrupts 
are clearedr TIME is set negative# the completion procedures 
are executed and the initiator re-entered. 

,f"\ 

Routine G0DISP will set time to the length of time before 
which the next interrupt must be received. If the completion 
bit is not set# the complement of the length is computed and 
placed in <3. If the high order character of this negative 
length :s equal to or greater than $AA -C^with parity! the 
length is increased by $100- If the operation is not formatted# 
control is sent to that part of the code which gets data 
from the specified core location. If the operation is 
formatted ASCII bits b & 7 of SWITCH are checked to see if 
any waste time characters are to be sent. If so# the count 
is decremented and a cancel character is sent out. Exit 
is than made to G0DISP. If no spacers are to be sent# the 
length is checked to see if all data has already been sent 
out. If so# carriage return line feed is put into A and 
control is passed to the code just after the point at which 
data is obtained from core- If not# control is transferred 
to the point which obtains data from core- 


If the operat i on if formatted binary the length is checked 
to see if the last word has been sent. If so# the complement 
of the checksum is placed in (3 and the point just after 
data is obtained from core is entered. If the last word has 
not been sent# SWITCH is checked to see if the first word 
has been sent. If so# data is not obtained from core so 
that the complement of the length is punched. If not# data 
is obtained from the location in ^CORE^. It is placed in 
(3. SWITCH is checked to see if the upper character is to 

be punched. If so# (3 is shifted right fi bits. If not the 
contents of (3 is added to ^CHKSUM* 7 . The high order R bits 
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of Q are cleared- If formatted AACII and the character 
is a carriage return the control bit is set in SWITCH. 

If formatted ASCII and the character is TAB. VTAB. or 
FORM, a spacer count of 3 is set into SWITCH. If the 
request is ASCII parity is computed and inserted into bit 
?. The character is then punched- The length is then computed 
and placed in <3- The upper lower switch is reversed- If 
now set for lowerr 1st word switch is set and the remaining 
length shows the operation is complete this was a single 
character output operation. The completion bit is set and 
exit is made to EXIT. Otherwise, the remaining length is 
checked to see if the last word has been sent- If so the 
completion bit is set- If not. and the operat i on is 
formatted binary and the first word switch is set exit 
is made to GODISP after resetting the 1st word switch- 
If not. the core location is incremented. If it now says 
the ooeration is complete, the complete bit is set and in 
either case exit is made to GODISP- 
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45. b CAPABILITIES 

The capabilities of this driver are identical to the 
capabilities of the following drivers: 

1. 1711/171E/1713 Teletypewri ter Driver. 

E- 17S1/17EE Paper Tape Reader Driver. 

3. 17E3/17E4 Paper Tape Punch Driver. 

All requests honored by the above drivers are honored by 
the 1713 Driver and vice versa* The results in all cases 
are the same . 
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4b. 0 DISK DRIVER WITH WORD ADDRESSABILITY {DISKUD} 

This version of the disk driver includes the following 

features: 

1. The driver allows word addressing of all mass storage 
{simulating a 1751 drum capability} in addition to sector 
addressing. 

2. The driver compares data on disk to core after a read 
or write operation and repeats the operation if the 
data does not compare. 

3. The driver identifies errors {hardware malfunctions > 
and records all occurrences in an error histroy table. 

4. The driver repeats all requests up to ten times before 
calling the DKDIAG program {to print out the information}. 


4b. 1 ENTRY POINTS 

DKINTR initiator entry 

DKCONT continuator entry 

DKDIAR error entry 

4b. 2 EXTERNALS 

LOG Engineering File 

DKDIAG Disk diagnostic printout and recovery routine 


4b. 3 ENTRY INTERFACES 

<2 = address of the Physical Device Table 
4b. 4 EXIT INTERFACES 

None 

4b. S GENERAL PROGRAM INFORMATION 
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4b. 5.1 INTERNAL SYMBOLS 

CLCKVA Number of seconds after which an I/O hangup 
is assumed. 

COMPAR An internal flag to indicate this is a compare 
data operation and not a read/write. 

TOTERR A history table of error occurrences. 

Error 

Code Meaning 

□ Clock run out -Cnever printed out> 

1 Ghost interrupt {never printed out} 

2 Alarm printed if alarm status bit is set 

3 On cylinder bit not set after a seek 
ope ration 

4 Checkword error 

5 Internal reject 

b External reject 

7 Load file address register command not 
causing file address register to set to 
correct value. Disk read/write head is 
not positioned correctly, 
fl Incorrect status. {Look at the current 

status word for more information on the 
incorrect status.} 

1 Compare error after a read or write. 

Other internal symbols are defined in the PHYSTB description. 
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PHYSICAL EQUIPMENT TABLE 


M L • S • 2 
PHYSTB 

+ 0 
+ 1 
+ 2 
+ 3 
+ M 
+ 5 
+ L 

+ ? 

+ 8 
+ C) 

+ 10 
+ 11 
+ 12 
+ 13 
+ 14 
+ 15 
+ 1L 
+ 17 
+ 15 

+n 
+ 20 
+ 21 


15 

14 1 13 1 12 1 11 

lohia 

7 1 L 1 5 | M 

3 | 2 | 1 

nr 


Request Code for 





0 

Schedule Request 


RP 

CP 



Entry Point 

of 

In i t i ator 



Entry Point of Continuator 

Entry Point of Diagnostic Routine 


D i agnost i c 

C I ock 




Device Logical 

Un 

it Number 




Address of Current 

Parameter List 




Dev i ce 





□ 

□ □ □ □ 

Equip. No- 

ODD 

0 □ 0 

i 

T1 

. "S 

T 

R 

s 

v - 1 . 

T 1 R 1 

si r i 

w 

F i rst 

Uord Address 

of Data 



S Last Word Address of Data +1 1 


Dynamic Hardware 

Status 




N 1 




J 



Disk Data Transfer 

Funct i on 




Disk File 

Add 

ress 



NC 

Disk Unit Contro I 

Funct i on 



H 

Address of 

PHYSTB for 

other Unit 


f Priority of Overlay Request | 


Absolutized Comp 1 

etion Address 

_J 

| Thread I 

nz 

Logical Unit From 

Request 


ZJ 


LABEL 

PHYSTB 


CLCK 

LUN 


GENST 

SYST 

RdJST 

FDD 

LWD 

STS 

ERCONT 

FDATAF 

FIlEAD 

FCONN 

OTHER 

ECALL1 

EC A L LB 

ECALL3 

ECALLM 


Words □ 
Word 5 


to 


3. 5 to 5» and 
i n i t i ator • 

E=1 
E = 0 
S 
T 
R 


Parameter N must be preset before entering 


Operat i on 
Operat ion 
Equ ipment 
Equipment Type 
Bit 1=1 Device 


is in Progress 
comp I ete 
ass 

Constant 
may be read 


Cl 


Bit 1=1 Device may be read from 'unprotected programs 
Bit 2=1 Device may be written from unprotected programs 
Bit 3=1 Equipment table includes words 18-33 for 
message buffering. 


Word 

T 

V 

E.rror Indicator = D in Driver 



T = 1 

Temporary Parity Error 



R = 1 

Fass Storage Device 



S = 1 

Seek in Progress 

Word 

13 

N 

Unit Number Relative to Controller 



J 

Recovery Error Counter 

Word 

1L 

NC = 1 

Do not compare after Read or Write 

Word 

17 

H = 1 

Other Entry has Request Waiting 

Word 

18-21 


Storage for an Overlaid Request 


Operat ions 
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4b. b DRIVER DESCRIPTION 

If the paired disk is not busyn a request is presented 
by FNR for completion. If a system directory request 
has been specif ied-i the sector number will be removed 
from the directory entry and the transfer effected. 
Otherwise! the request is categorized as REGULAR or 
FORMAT . REGULAR requests are procedded by the routine 
LIKDUM and FORMAT requests are processed by NORMAL. 


rf 
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Mb.b.l FORMAT REQUESTS 

The most and least significant bits IMSB* LSB> of a FORMAT 
request are interpreted as a sector address. The routine 
NORMAL saves the LSB in the PHYSTB then tests the MSB to 
ensure it is zero- A non-zero MSB is not possible if address- 
ing the disk on this mode. A request type check is then made 
by NORMAL- If a FURITE request is to be executed* the 
routine jJRITOP is entered to write the record* A FREAD 
request nust first be checked to ensure it is not being over- 
layed- The routine CKOVRL will move the request if it is in 
the input buffer. The routine READOP is then entered to in- 
put the disk record- 

REQUEST COMPLETION 

| Once a record has been transferred* control is passed to 

USEOWN. This routine causes the completion address to be 
scheduled and the disk unit switching to occur- Transfer is 
then effected to the routine responsible for finding the next 
request • 

4b. b. 3 REGULAR REQUESTS 

REGULAR requests are processed at label LIKDUM. The MSB and 
LSB of a REGULAR request is interpreted as a word address by 
the disk driver. In this mode* the MSB and LSB are converted 
to a sector and word within a sector address- A buffer, 
internal to the driver, is requ i red for the processing of 
records transmitted in this mode- Unconditionally* the first 
sector {% words} is read into the internal buffer and a test 
made for read or write mode- 

A regular READ is first checked, and moved if necessary, to 
ensure that it is not being overlayed- That part of the first 
sector* f rom the °word within a sector 9 pointer to the ^bth 
word* is then moved from the internal buffer to the requestors 
buffer. A second request* initiated locally by the driver* 
transfers the remainder of the record directly to the 
requestors buffer- On completion of the transfer* the 
routine USEOUN is entered. 

C 
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Regular WRITE requests are processed in three steps. First 
the sector in the internal buffer is updated from the re- 
questors buffer, then output via the routine WRITOP. Second 
the number of full sectors which remain are written directly 
from the requestors buffer to the disk via WRITOP. Final lyr 
the last sector is read into the internal bufferr updated , 
and output. The second and third steps are performed locally 
by the driver- 

// 

,„'4b. b • 4 SHARED ROUTINES FOR READING AND WRITING 

The read routine READOP and the write routine WRITOP share 
common logic and differ only in the setup of the data trans- 
fer function. This routine computes a load address function 
from the sector number and initializes the error re-try 
counter. It then initiates a disk transfer at SEEKOP. 

0 

4b. b • 4 • 1 INITIATION OF A SECTOR SEEK 


SEEKOP clears the CONPAR FLAG {used to cause data compare 
function after a read or write!- SEEKOP selects the proper 
unit, selects interrupts on alarm and ready not busy- It 
then sends the controller a seek function and goes to Label 
EXIT. 

Hb.b.4.2 C0NTINUAT0R OPERATIONS 

The continuator DKCONT checks for and ignores ghost inter- 
rupts , disables the diagnostic clock, saves the disk status, 
then acknowledges the interrupt- If the status is incorrect, 
control is passed to the error sector at DETERR. If the 
seek operation is complete, control is passed to Label DATA. 
If the ^do not compare* 7 flag is set the routine is exited. 
Otherwise, the compare flag CONPAR is set when control is 
passed to C0MP0P. 

At the completion of a seek operation control is passed to 
label DATA- The seek request flag is reset- Then several 
tests on the status of the controller are made. If the 
status word indicates that the unit is not on cylinder, con- 
trol is passed to the error section at label REPEAT with 
error code 3 in <2. If the file address register in the 
controller is different than the selected file address . an 
error has occurred and the desired file address register is 
stored in the error table and control is passed to label 
REPEAT with error code 7 in (2- 

Otherwise, a unit is selected, the alarm and end-of-operat i on 
interrupts are selected, the first word address minus one 
{FWD-1I is patched with the last word address plus one, and 
a data transfer function sent to the controller. The FWD-1 
is then restored to its original value and control is passed 
to Label EXIT. 
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At EXIT the clock is turned on and control is passed to the 
D i spatcher • 

-Mb. 7 ERROR HANDLING 

When an incorrect status occurs after an operation control 
is passed to Label DETERR to determine what type of error 
occurred- Then at Label REPEAT an entry in the error table 
TOTERR is incremented. If this request has been repeated 
less than ten times the operation will be attempted again. 

If the unit is ready and not busy* control is passed to 
SEEKOP. Otherwiser control is passed to label WAIT to wait 
for one second before returning control to the driver. 

{Note that this driver requires a diagnostic timer to recover 
from this condition-} 

If this request has been repeated at least ten times» then 
the fatal error indicator bits in the PHYSTB are set and 
control is passed to the error printout routine DKDIAG with 
the error code in <3. The error codes are shown in Section 
B4-3- 
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The disk error routine DKDIAG is entered with the error 
code right justified in the (3 register and the address of 
the Phys cal Device Table in I. The DKDIAG routine is user 
submitted and performs functions such as message printout 
and recovery- Index I must not be changed on return to the 
driver from DKDIAG. 
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Mb. 6 HARDWARE REQUIREMENT 

The minimum configuration necessary for operation of this 
driver is: 

1 170 M Computer 

1 1705 Interrupt Data Channel 

1 1736 Disk Controller 

1 653 or 654 Disk Drive 

1 650 Disk Pack 

The driver will operate one 1736 controller! which may 
have either 653 or 654 disk drives. 

Additional hardware recommended: 

1 1573 Line synchronizer or equivalent so that the 

diagnostic timer program can be used to detect I/O 
hangups on the disk. 


Mb.l TWO DRIVES ON ONE CONTROLLER 

The driveri through PHYSTB settings! can identify two disk 
drives which are connected to a common controller. Since 
the controller can operate only one drive at a time! the 
driver will not attempt to operate one drive when the other 
is busy. However! at the completion of each request! a 
check is made to see if the other drive has a request 
waiting. If so! the other drive is put into operation. It 
can be seen then that if two disks are connected to the 
same controller and each has several requests queued! then 
the two disk drives will be operated alternately until the 
queues are empty. 

MS. IQ INTERRUPT OPERATION 

The driver does all operations using interrupts! i.e.! the 
completion of seeks and data transfers are signalled by the 
occurrence of certain selected interrupts. Errors are 
detected in the same manner. 

Data transfers are ended when end-of-operation is signalled. 
Seeks are ended when ready and not busy is signalled. 
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CONNECT CODE 


islm i3lia|ii|io 


s 

7 

b 

s 

4 

3 

E 

1 

0 

0 0 0 0 0 0 

a 

i 

0 

LDj 

0 

1 

IT 

1 

0 

0 


Not Used 


Tj 


Not Used 


_C I ear 
Interrupts 


_Next Ready and Not 
Busy Interrupt 

End of Operation 
Interrupt Request 


Alarm Interrupt Request 

Not Used 
Not Used 

Release -CNot Used by Driver! 
Select Unit 0 
Select Unit 1 


Driver uses following two codes: 

114 for Unit; 0 
E1M for Unit 1 
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47. D 
47.1 


47.2 


47.3 


47.4 


47.5 


1751 DRUM DRIVER 
FUNCTION 

The Drum Driver will execute the I/O commands necessary 
to process a user 7 s request to read or write the drum 
memory. The requests may be of variable length and may 
transfer information anywhere in core to or from anywhere 
on drum. 

The driver relinquishes control of the Monitor during all 
I/O transfers! since the I/O proceeds without program 
attention via the Direct Storage Access. An interrupt 
returns control to the driver upon end of operation or 
the occurrence of any error. 

The drum driver will handle five request codes t Read 
System Directory Format -CD>! Read -CUt Write -CH>i Format 
Read -C4>i Format Write -Cb>. 

, 4 ' 

The drum driver will handle the recoverable error conditions'-^ 
on the drum and will update the Physical Device Table. The 
drum driver also will simulate disc operations. 


ENTRY POINTS 

DRMINT initiator address 

DRMCON continuator address 

DRMERR error entry 

EXTERNALS 

DMDIAG drum diagnostic routine 

ENTRY INTERFACES 

All entry points require that the dJ-register contains 
the address of the drum physical device table. 

EXIT INTERFACES 


None 
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47. b GENERAL PROGRAM INFORMATION 


47 • b. 1 INTERNAL SYMBOLS 


OREJ Control comes to here on output reject. 

TIMERA Timing error flag {while idle>. 

TIMERB Timing error flag {while busy>. 

MAXERR Contains the maximum number of times a reqaest 

will be repeated if a timing error or parity error 
is detected. 


TOTERR Contains the accumulation of all errors. 

ERRCNT Current number of errors on this request. 

STATUS A subroutine to read drum status 

INTREJ Control comes here on input rejects {internal!- 

EXTREJ Control comes here on input rejects {external}. 

SETEFD Set error field subroutine. 

DDIAG1 Call Drum Diagnostic subroutine 

amoni Indirect address of the Monitor Entryi location 


47. b • 3 USER INSTRUCTIONS. 

Physical device table set up. A listing of the drqm 
device table is attached. DRUM must be an entry point. 

At system initialization time or after a master clearn 
the drum controller should have its interrupt enabled- 
The following code performs this operation: 


LDA = 

N*1D1 


ENA 

♦ A 

Clear interrupt 

Out 

-1 

and request interrupt on end of 
operation. 


User supplied interrupt response routine. 


INTDRM 

LD<2 =XDRUM 

DEVICE TABLE 


JMPh {DRUM+B} 

GO TO C0NTINUAT0R 
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47. b. 3 PHYSICAL DEVICE TABLE 


DRUM 

NUM 

$120A 


ADC 

DRMINT 


ADC 

DRMCON 


ADC 

DRMERR 


NUM 

-1 


NUM 

□ 


ADC 

□ 


ADC 

E+l 


NUM 

$bb 


NUM 

$200 


ADC 

0 


ADC 

0 


NUM 

0 


BSS 

DRMCLL {b> 

TRACK 

ADC 

Oifl + E 

SECTOR 

ADC 

0 i$A+E 

S 

ADC 

0,$C+E 

FNCORE 

ADC 

0 i$C+E 


ADC 

S 1 1+E 

RWCTRL 

NUM 

OiO 


NUM 

0 i-l 


ADC 

RCRR 

RC 

NUM 

0 

DN 

NUM 

0 

WRITEC 

ADC 

E 

READC 

ADC 

E+$4 


SCHEDULE DRIVER AT LEVEL 10 
ED IN 
EDCN 
EDPGM 
EDCLK 
ELU 
EPTR 
EWES 

DRUM STORAGE T=bi READ 
AND WRITE =3 

ESTAT1 MMBIT 

ECCOR 

ELSTIilD 

ESTATE 

CALL MOVED HERE ON OVERLAY 
12 BITS-TRACK 
11 BITS-SECTOR 
IS BITS-INITIAL CORE 
IS BITS-FINAL CORE 
END OF OPERATION INTERRUPT 
Aid 

END OF SEQUENCE 
SYSTEM DIR READ CODE 
REdUEST CODE 
NUMBER OF WORDS 
WRITE CODE IN d 
READ CODE IN d 


Word 33 of the device table contains the Read Request Code 
to be used by the driver for reading in System Directory 
programs. I must be set to either RCRR {Request Codes 
for Regular Readi 1> for a stand-alone Monitor or RCFR 
{Request Code for Format Read} for use in the Operating 
System . 
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M7.fi Program Description 

Initiator section. Upon entry-. the (3-register contains 
the address of the physical device table for the drum. 

The drum driver calls the find next request routine-. 

FNR-. which removes the top entry from the drum^s thread -. 
stores the location of the parameter list in the physical 
device table-. and returns control to the drum driver. 

If no more requests are on the drums thread-. then the 
driver exits to the Dispatcher. If this is an overlay-, 
the parameter list is moved to the device table. The 
driver extracts the starting address of core S and the 
mass memory address M n A . Then the driver executes the 
output commands which initiate the I/O transfer. The 
driver gives control to the dispatcher. The I/O transfer 
proceeds without program attention. 


REJECTS 

If an external reject occurred on the output command-, 
the status is read and stored in the device table. And 
if a timing error was present-, timing error flag A is 
set-, flag B is cleared-, and control is given to the 
dispatcher. If no timing error occurred-, the drum 
diagnostic is called with error 7 in (3 and the status 
in A. The error field is set in the device table and 
the driver proceeds to A1 to schedule the completion 
address. If an internal reject occurred-, the diagnostic 
is called with error 4. The error field is set and the 
call is completed. 

INTERRUPT ENTRY SECTION 

At the end of operation or when an error occurs an 
interrupt occurs. The user supplied response routine 
enters the Interrupt entry DRMCON . If timing error flag 
A is set-, it is cleared -Cthis is the resynch interrupt! 
and the diagnostic is called with a six in <3- Control 
then goes to the error counter check section. If timing 
error flag B is set-, it is cleared {this is the resynch 
interrupt} and diagnostic three is called. Control then 
goes to the error counter check. If no errors exist in 
the status word-, control is given to A 1 to complete the 
call. Otherwise-, an error exists. If it is the guarded 
address error-, the program protect fault routine PFAULT 
is called-, the error field set and control goes to Al. 
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If the timing error is set! then flag B is seti flag 
A is cleared and control goes to the dispatcher to await 
the resynch interrupt. 

ERROR COUNTER SECTION 

If the error counter i ERRCNTi now equals the maximum 
number of errors {MAXERRJi the error field is seti 
the diagnostic two is called and then control goes to 
Al. Otherwise the error counter is incremented! the 
status is stored in the device table i diagnostic one is 
called and control goes to AS to repeat the request. 

COMPLETION OF THE CALL SECTION 

If the completion address in the users calling sequence 

lies within the area of a readi or if this is a directory 

call and the read was unsuccessful! then drum diagnostic 

will be called {error fl> the completion address will not 

be scheduled and the drum driver will proceed to the next /< 

request. If the transfer was unsuccessful! due to a W 

timing errori parity error! or some other undiagnosed 

error condition! the drum diagnostic will be called 

{error E>! the error field V will be set {passed to user 

in <2 at completion address}. Upon encountering an error 

the driver calls upon the drum diagnostic program DRMDIG 

to print out the error code and drum status. 

The error codes are as follows: 


Error Number Description 


1 

2 

3. 

4. 

5. 
b 


Repeated the request due to an error. 
Request not successfully completed. 
Attempted to repeat the maximum number 
of times. 

A timing error occurred while the drum 
was busy. 

An internal reject on input or output 
command occurred. {Equipment not turned 
on or equipment code not set to 5.} 

An external reject on input command. 
Controller has malfunctioned. 

A timing error occurred while drum was 
not busy. 
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Error Number Description 

7 An external reject occurred on an 

output command and no timing error 
was set. This is a controller 
malfunction . 

fl Either a directory call or an overlay 

read request was not completed due 
to an irrecoverable error. 

1 A guarded address error on a write -i 

location of the request is in the 
A-register. 


If this is a directory read request! all of the <3- 
register will be passed to the user. Otherwise the error 
field is placed in the high order three bit of < 2 * The 
Complete Request Routine is called to schedule the 
completion address. Control is given to the initiator 
section to find the next request. 

47. 1 Program Limitations and Restrictions: 

The program as coded is restricted to running only one 
drum. 
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48.0 1777 PAPER TAPE DRIVER 

48.1 FUNCTION 

The 1777 Paper Tape Station Driver is a standard driver 
which will operate under V3.D Operating System. This 
driver is essentially the 1721/1722 Reader Driver and 
the 1723/1724 Punch Driver. Compatability is such that 
the 1777 Paper Tape Station Driver can replace the 1721/ 
1722 Reader Driver and the 1723/1724 Punch Driver. 

46.2 MODULES 

The 1777 Paper Tape Station Driver is composed of four 
•C4> modules. 


1. 

MASDRV 

Mass memory driver control program 

2. 

PUNCDR 

Paper tape punch driver 

3. 

PTREAD 

Paper tape reader driver 

4. 

STCK 

Common routines to the Paper Tape 



Punch and Reader 


Uhen the 1777 Paper Tape Station Driver is mass memory! 
a small routine precedes the punch driver and the reader 
driver. This routine calculates and inserts the absolute 
addresses of the drivers Initiator! Continuator and Error 
Routine into the PHYSTAB. Also STCK is internal to the 
punch driver module and reader driver module. 

Uhen the 1777 Paper Tape Station Driver is core resident 
STCK is external to the punch driver module and reader 
driver module. 

46.3 1777 PUNCH DRIVER MASS MEMORY 

48.3.1 ENTRY SYMBOLS 

PUNCHI Driver Initiator Address 

PUNCDR Driver Continuator Address 

PCHERR Driver Error routine for Diagnostic Timer. 
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43.3.2 EXTERNAL SYMBOLS 

MAS3DQ Entry in MASDRV. It will check if any mass 
memory drivers are waiting in core. 

MAKE<2 Routine that sets the proper error bits in word 
nine -CU of PHYSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 


43.3.3 PHYSICAL DEVICE TABLE 

The Physical Device Table for the punch driver mass memory 
is set up as follows: 


ENT 

PPTPCH 


EXT 

MASDRV-.TP1777 


- ADC 

TP1777 


PPTPCH NUM 

$12 AA 

Punch Entry 

ADC 

MASDRV 

Initiator Entry 

ADC 

□ 

Continuator Entry 

ADC 

a 

Time Out Entry 

NUM 

-l 

Diagnostic Clock 

NUM 

a 

Logical Unit 

NUM 

a 

Call Parameter List 

NUM 

$xxxx 

Hardware Address 

NUM 

$xxxx 

Request Status 

NUM 

0 

Status Word 

NUM 

0 

Current Core Location 

NUM 

□ 

Last Word Address +1 

NUM 

0 

Hardware Sttdtes 

NUM 

$FB 

Driver Length 

ADC 

TP1777 

Name associated with : 

NUM 

0 

Checksum Word 

NUM 

0 

Length of Record 

NUM 

0 

Return Address FNR 

NUM 

□ 

Return Address Common 

NUM 

a 

Error Code Storage 

NUM 

0 

Temporary Storage 

NUM 

□ 

Flag of Lost Data 
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4fi • 3 • 4 SUBROUTINES 

46.3.4*1 STCK1D {Status Check! 

Clears the interrupt and checks status to see if alarm 
condition occur. If alarm occurs it checks for lost 
data if so exit if not set alarm code in A and go to 
STCD1D • 


Normal return is at P+2 

46.3.4.2 STCD1Q {Set Code} 


This routine is entered u/hen there is a non recoverable 
error. Upon entering! A contains the error code. The 
logical unit is then Exclusive Ored in A. This then goes 
to flAKEfl and then to Alternate Device Handler. 

46.3.4.3 SINT1Q {Set Interrupts! 

This routine goes to find next request. Upon P_2 return 
it sets the interrupts! starts motion! and exits. 

~~ — Upon P+1 return it exits to MASDRV because no more 
requests are threaded. 

46.3.4.4 CRECJ10 {Clear Interrupt Request! 

This routine clears interrupts! inputs status! goes to 
NAKE<2 and exits* 

46.3. 5:;aa DESCRIPT 10 N 

A .? Initiator 

Jv PUNCHI is the initiating entry to the driver. At entry 
exit is made to SINT1Q. Upon return checksum is cleared 
and exits to the dispatcher. 

Cont inuator 


PUNCDR is the continuator entry. At entry exit is made to 
STCK10 upon return at P+2 no errors have occurred! if return 
was at P+1 a jump to the validation error routine would 
occur. PTPSOQ is the tag address. 
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Data Transfer Operation Punch 


Formatted Binary 

The complement of the length is punched on the first 
two -CEI frames of each record- Each word is added to 
the checksum and outputted by character. The path that 
formatted binary uses is PUNCDR-, PTP010-, PTPOEOi PTP030-, 
PTPDSQ-, PTP070-, PTPOflO i PTPfflOO-, PTPlbO-, PTP500-, and 
PTP30Qf - Upon completion the checksum is complimented 
and written out for parity purposes- 

Binary 

Binary is a direct data to punch- The path that binary 
uses is PUNCDR-, PTP010-, PTP050-, PTP030-, PTP070-, PTPOflO-, 
PTP10Q i PTPltiQ i PTP200 and PTP3D0- Upon completion the 
checksum is not punched. 

Formatted ASCII 

Each character punched has its own parity and it is 
even parity. The path that formatted ASCII uses is 
PUNCDR-, PTPQ10-, PTP0E0-, PTP030-, PTP04D-. PTPQ7D-, PTPOaO-. 
PTP1Q0-, PTP10S-, PTP11Q i PTP14D, PTP50D-. and PTP3D0- 
Upon completion a carriage return and line feed is punched. 

If a carriage return is encountered while punching! a line 
feed character is punched following the carriage return- 

ASCII 


Each character punched has it w s own parity and it is 
even. The path that it uses is PUNCDR-i PTPOIOt PTPOEDt 
PTPD 3D 1 PTP070-, PTPOflO-, PTP100-, PTP10S-, PTP140-, PTPS00-, 
and PTP300. 

Error Routine 


Iff tne Diagnostic Timer times out it will enter this 
routine PCHERR-, which sets alarm status code and goes to 
STCD10 . 
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4S.4 1777 READER MASS MEMORY 

4fl . 4 • 1 ENTRY SYMBOLS 

PREADI Driver initiator address 

PTREAD Driver continuator address 

PTERR Driver Error Routine for Diagnostic Timer. 

4fl • 4 . 2 EXTERNAL SYMBOLS 

MAS30Q Entry in MASDRV. It will check if any mass 
memory drivers are waiting in core. 

MAKEC3 Routine that sets the proper error bits in 

word nine -Cl} of PHYSTAB to be passed to user. 
ALTDEV Program that processes irrecoverable errors. 

4fl • 4 • 3 PHYSICAL DEVICE TABLE 

The Physical Device Table for the Reader Driver Mass 
Memory is set up as follows: 


PPTRDR 


ENT 

PPTRDR 


EXT 

MASDRV-iTP1777 


ADC 

TP1777 


NUM 

S12AA 

Reader Entry 

ADC 

MASDRV 

Initiator Entry 

ADC 

0 

Continuator Entry 

ADC 

0 

Time Out Entry 

NUM 

"1 

Diagnostic Clock 

NUM 

□ 

Logical Unit 

NUM 

0 

Call Parameter List 

NUM 

$xxxx 

Hardware Address 

NUM 

*xxxx 

Request Status 

NUM 

0 

Status Word 

NUM 

0 

Current Core 

NUM 

0 

Last Word Address +1 

NUM 

0 

Hardware Status 

NUM 

$FF 

Driver Length 

ADC 

TF1777 

Some associated with sector 

NUM 

□ 

Check Sum 

NUM 

□ 

Length of Record 

NUM 

□ 

Return for FNR 

NUM 

□ 

Return Address Common 

NUM 

D 

Error Code Storage 

NUM 

□ 

Temporary Storage 

NUM 

□ 

Flag for Lost Data 
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MS • 4 • 4 SUBROUTINES 

43.4.4.1 STCK10 {Status Check! 

This routine clears the interrupt and checks status to 
see if an alarm condition occured. If alarm occurred-, it 
checks for lost data-i if so-, exiti if noti set alarm in 
A and go to STCD10. 

Normal return is at P+E. 

48.4. 4. E STCD1Q {Set Code! 

This routine is entered when there is a non recoverable 
error. Upon entering A contains the error code. The 
logical unit is Exclusive Ored into A. This then goes to 
NAKE<2 and then to Alternate Device Handler. 

43.4.4.3 SINT10 {Set Interrupts} 

This routine goes to find next request. Upon P+S return-, 
it sets the interrupts-, starts motion and exits- 

Upon P+1 return it exits to I1ASDRV because no more requests 
are threaded. 


48.4.4.4 CREfllQ {Clear Interrupt Request} 

This routine clears interrupts-, input status goes to 
MAKE<2 and exits is taken. 
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170Q 


PREADI is the initiating entry to the driver. At entry exit 
is made to SINT10. Upon return checksum and length are cleared 
and exit to the dispatcher is made. 

Conti nuator 


PTREAD is the continuator entry. At entry-,exi + is made to 
STCK1D upon return at P+5 no errors occurred. If return was at 
P+1 a jump to the error routine would occur. PTR11D is the 
tag address. 

Data Transfer Operation Reader 
Formatted Binary 


The compliment of the length is read in on the first 
two -C5I frames of each record. The path that the for- 
matted binary uses is PTREAD -, PTR030-, PTRD40-, PTR050-, 
PTROflO -, PTROIOi PTR150-, PTR130-, PTR130-, PTR5GD-, PTR510-, 
and PTR57Q. Upon completion the checksum is compared 
and if zero no error. 

Binary 


Binary is a direct data to core. The path that binary 
uses is PTREAD-, PTR0R0-. PTR130-, PTR13G-, PTRlflO-, PTR5M0-, 
PTR5 (dQi and PTR57Q. There is no checksum to compare. 

Formatted ASCII 


Each character read has it ■'s own parity and it is even 
parity . The path that formatted ASCII uses is PTREAD -, 
PTR0A0-. PTROlO i PTR1EG-, PTR13D-, PTR13S-, PTR1M0-, PRTlfiO-, 
PTR5DDi PTR510 and PTR57D. Upon treading a carriage 
return it exits to PTRBIO and completes the request. 

ASCII 


Each character punched has its own parity and it is 
even. The path that it uses is PTREAD-, PTR010-, PTR150-, 
PTR13D-, PTR13S-, PTRIMO-, PTR1AD-, PTR3M0-, PTR570. 

Error Routine 


If the Diagnostic Timer times out Tt will enter this routine 
PTRERRt which sets the alarm status code and goes to STCD1Q. 
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48.5 1777 PUNCH DRIVER CORE RESIDENT 

48.5.1 ENTRY SYMBOLS 


PUNCHI Driver Initiator Address 

PUNCDR Driver continuator address 

PCHERR Driver error routine for diagnostic timer 


48.5.2 EXTERNAL SYMBOLS 


STCK10 

STCD10 

SINT10 

CRE(210 


Entry in STCK it checks for alarm. 

Entry in STCK it sets the error code for 
alternate device. 

Entry in STCK it sets interrupts* 

Entry in STCK it clears interrupts. 


48.5.3 PHYSICAL DEVICE TABLES 


The Physical Device Table for the punch driver core 
resident is set up as follows: 


PPTPCH 


ENT 

PPTPCH 


EXT 

PUNCHI -.PUNCDR 

-.PCHERR 

NUM 

$12 AA 

Punch Entry 

ADC 

PUNCHI 

Initiator Entry 

ADC 

PUNCDR 

Continuator Entry 

ADC 

PCHERR 

Time-out Entry 

NUM 

-1 

Diagnostic Clock 

NUM 

0 

Logical Unit 

NUM 

D 

Call Parameter List 

NUM 

$XXXX 

Hardware Address 

NUM 

$XXXX 

Request Status 

NUM 

0 

Status Word 

NUM 

0 

Current Core Location 

NUM 

D 

Last Word Address +1 

NUM 

D 

Hardware Status 

NUM 

□ 


ADC 

TP1777 

Some associated with sector * 

NUM 

0 

Checksum Hord 

NUM 

□ 

Length of Record 

NUM 

□ 

Return Address FNR 

NUM 

0 

Return Address Common 

NUM 

□ 

Error Code Storage 

NUM 

D 

Temporary Storage 

NUM 

G 

Flag for Lost Data 
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46.5.4 DRIVER DESCRIPTION 
Initiator 

PUNCHI is the initiating entry to the driver. At entryn 
exit is made to SINTlOi upon return the checksum is 
cleared and an exit to the dispatcher is made. 

Continuator 


PUNCDR is the continuator entry. At entryn exit is made 
to STCK10 upon normal return P+E no errors occurred. If 
return was at P+1 a jump to the validation error routine 
would occur. PTPSDD is the tag address. 

Data Transfer Operation Punch 

See Section 4A.3.5 Data Transfer Operation Punch. 

Error Routine 


If the diagnostic timer times out it will enter this 
routine PCHERRi which sets the alarm status code and goes 
to STCD10 . 
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46 • b 1777 READER CORE RESIDENT 

46 • b • 1 ENTRY SYMBOLS 


PREADI 

PTREAD 

PTRERR 


Driver initiator address 

Driver continuator address 

Driver error routine for diagnostic timer. 


46. b . B EXTERNAL SYMBOLS 


STCK1Q Entry in STCK it checks for alarm. 

STCD13 Entry in STCK it sets the error code for 

alternate device. 

SINT1Q Entry in STCK it sets interrupts. 

CREfllQ Entry in STCK it clears interrupts. 

46. b. 3 PHYSICAL DEVICE TABLE 


f 

i 


The physical Device Table for the reader driver core 
resident is set up as follows: 



PPTRDR 


ENT 

PPTRDR 


EXT 

PREADI iPTREAD 

iPTRERR 

NUN 

$13AA 

Reader Entry 

ADC 

PREADI 

Initiator Entry 

ADC 

PTREAD 

Continuator Entry 

ADC 

PTRERR 

Time Out Entry 

NUM 

-1 

Diagnostic Clock 

NUM 

Q 

Logical Unit 

NUM 

□ 

Call Parameter List 

NUM 

$XXXX 

Hardware Address 

NUM 

$XXXX 

Request Status 

NUM 

0 

Status Word 

NUM 

0 

Current Core 

NUM 

0 

Last Word Address +1 

NUM 

0 

Hardware Status 

NUM 

0 


ADC 

TF1777 

Some associated with Sector 

NUM 

a 

Checksum 

NUM 

0 

Length of Record 

NUM 

0 

Return for FNR 

NUM 

a 

Return Address Common 

NUM 

0 

Error Code Storage 

NUM 

0 

Temporary Storage 

NUM 

0 

Flag for Lost Data 
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48 • b • 4 DRIVER DESCRIPTION 
Initiator 


PREADI is the initiating entry to the driver- At entry 
exit is made to SINT1D- Upon return checksum and length 
are cleared and exit to the dispatcher is made. 

Continuator 


PTREAD is the continuator entry. At entry exit is maje to 
STCK1D upon return at P+E no errors occur. If return was 
at P+1 a jump to the error routine would occur. PTR110 
is the tag address. 

Data Transfer Operation Reader 

See Section 46.4.5 Data Transfer Operation Reader 
Error Routine 


If the Diagnostic Timer times out it will enter this 
routine PTRERRt which sets alarm status code and goes to 
STCD1Q • 
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4fl.7 SUBPROGRAM -CSTCO 

46*7*1 STCK10 -CStatus Check} 

Clears the interrupt and checks status to see if alarm 
condition occured. If alarm occured it checks for lost 
data! if so exit! if not set alarm in A and go to 
STCD1Q . 

Normal return is P+2 
46*7*2 STCD1D {Set Code} 

This routine is entered when there is a non recoverable 

error* Upon entering A contains error code* The logical 
unit is Exclusive Ored into A. This then goes to MAKECJ 
then to Alternate Device Handler* 

4fl.7*3 SINTaiQ {Set Interrupts} 

This routine goes to find next request. Upon P+2 return 
it sets the interrupts and starts motion then exits* 

Upon P+1 returni it exits to the dispatcher because no 
more requests are threaded. 

46*7*4 CREfllQ {Clear Interrupt Request} 

This routine clears interrupts! inputs statusi goes to 
MAKEC3 and exits* 
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4T.0 

41-1 


4T.2 


4T.3 


4T.4 


175b/405 CARD READER DRIVER 
FUNCTION 


The 175b/405 Card Reader Driver is a standard software 
driver which will operate under the 1700 MSOS 3.0 
Operating System. This driver cannot perform read 
operations on any other card reader. 

ENTRY POINTS 


INl?2b 

CN175b 

EXl?2b 

EXTERNALS 


initiator entry 
continuator entry 
error entry 


MAKEcJ 

ALTDEV 

MAS300 declared external if the driver is mass 

memory resident. 

BUFALC declared if the driver is buffered 

GENERAL PROGRAM INFORMATION 


4T.4.1 ASSEMBLY OPTIONS 

The li72b/405 Card Reader Driver has two assembly option 
control cardsn which control six assembled versions of 
the jj75b/40S Driver. 

There are three optional versions of converting Hollerith 
to ASCII. The following is a description of the 
differences that exist in the three versions. 

■CIT ASCIIb3 


The 175b Controller has a hardware conversion of 
the American Standard Code for Information Interchange 
as it was determined to be in 11b3. The hardware 
conversion is designed to recognize a separater card 
b-7-fl-T punchi because of this the normal EOF card 
7-6 punch -Cword 14 of the PHYSTAB}-. will not be 
recogn ized . 
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CE> ASCIIU8 

This version employs the standard software 
algorithim that is used in other drivers to convert 
Hollerith to ASCII. The only difference is the 
table of hexidecimal codes. This table reflects the 
revisions in the American Standard Code for Infor- 
mation Interchange as revised in lILfl. If the 
software conversion is usedi the end of file 
pattern is set in word 14 of the PHYSTAB. It can be 
set to anyone column configuration the user desires. 

•£3} CDC SUBSET 

The CDC Subset is the same as ASCIIbfl with the 
following exceptions. 

A. The 11— 8— 5 punch will be interpreted as a 
hexidecimal 7D • 

B. The 12-8-2 punch will be interpreted as a 
hexidecimal 7B« 

C. The 11-0 punch will be interpreted the same as the 

11- 8-2 punch. 

D. The 12-0 punch will be interpreted the same as the 

12- 8-2 punch. 


The CDC Subset option enables the information read 
on the 172fc>/405 Card Reader to be compatible with the 
CDC 3000 Series Computers and b000 Seriesi which use 
CDC ASCII- 

The l?2fcj/40S Driver has an assembly option for two mode 
of operation! buffered and non-buffered . Listed below is 
a general description of each mode. 

-Cl> BUFFERED 


If the buffered version is selected! the first word 
of the card is read direct. The reason for this is 
that the binary card status comes up after the first 
word of a card has been transferred into the computers 
memory. This status is used to help determine the 
length of the buffered transfer. An exit is made 
from the driver after the buffered transfer has 
started. Control is returned to the driver when an 
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C5> NON-BUFFERED 


If the non-buffered option is selected-. the 
information on one punched card is read and 
processed before an exit is made from the driver. 
The reason for this is that when the data status is 
up it remains up until the entire card is read from 
the controllers buffer memory. This feature allows 
the driver to run at a low priority! for there is 
no longer any danger of losing data. 

DESCRIPTION 

At the entry point EXl?5fcn time expired-, error code zero 
is set and the Alternate Device Handler is entered. 


At the initiator entry, routine FNR is entered to see if 
a request is stacked. If not. exit is made to the 
dispatcher. If there is a request-. the checksum accumulator -. 
packing cycle indicator-, hollerith error flag-, and 
sequence check words are cleared. 




At the label FEEDCD-, the relative address of label NEXT 
from label NOTALR is stored in the subroutine return 
address word {RETURN! • Status is taken and a test is 
made to see if the c <rd reader is ready. If it is not 
ready-, a jump is made to label ALA. If the card reader is 
ready-, a request for interrupt on Data and Alarm is made. 
The Diagnostic timer is set and an exit is made to the 
Dispatcher. 


At the entry point-, CNITEb-. 1 status is taken and a test is 
made to check for an alarm. If there is no alarm, jump 
to label NOTALR* If there is an alarm, a test is made to 
check for the following conditions. 


a. MANUAL SWITCH OR POWER OFF 
o. STACKER FULL OR JAM 

c. FAIL TO FEED 

d. SEPARATOR CARD 

e. ERROR {PRE-READ OR COMPARE! 

f. PROTECTED 
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If none of these conditions exist! a jump is made to label NOTALR. 

If one or more of these conditions are seti a test is made to see if 
there has been a Pre-Read or Compare error. If there was a Pre-Read 
or Compare error i the error code COMPAR C3> is entered in the re- 

gister and a jump to label ERROR is made otherwise jump to label ALA* 

Label ALA is the entry point to a routine that handles alarm condi- 
tions. There are two versions! one is selected at assembly time with 
an equate card- If E(2U BUFER -CO} the non-buffered version is assem- 
bled. When entry is made at label ALAt error code ALARM {2! is in- 
serted in the *A* register and a jump is made to label ERROR. If ECU 
BUFER -ClI the buffered version is assembled! a test is made to see if 
the 170b is not busy. If it is not busy! the error code ALARM {2} is 
inserted in the *A* register and a jump is^made to label ERROR. If 
the 17QL is busyi the data transfer is terminated and alarm error {El- 
code is inserted in *A* and a jump is made to label ERROR. 

At label N0TALR the current buffer address BUFFAD is made equal to 
the starting address of the SO word buffer {BUFFER! a jump is then 
made to label N0TALR modified by RETURN- 

At label NEXTi a test is made to determine if the request is format- 
ted. If it is formatted! jump to label FRDBIN- If it is not format- 
ted! a test is made to see if the request is ASCII or Binary. If it 
is binaryi jump to label FRDBIN. If ASCII skip to label FRDBIN. 

At label FRDBINi a test is made to determine the mode ASCII or binary- 
If it is binary! jump to label Afi- If it is ASCIIi an assembly op- 
tion is used. If it is ASCIIbfli the driver treats it like binary and 
the next instruction is at label Afii but if it is ASCIIL3! rhe rela- 
tive address from NOTALR to T0SKIP is stored in the subroutine re- 
turn address RETURN. The release hegate function bit is set in V A* 
and a jump is made to label DA172b- 

At label A fii the relative address from NOTALR to BB is stored in RE- 
TURN- An Assembly option sets the release negate function bit in *A V 
if it is ASCIIb3 and the negate function bit for ASCIIbfl! a jump is 
then made to label DA172b. 

At label DA172bi the function code is increased to include end of 
Operation and then stored in TEMPUD* Status is then taken and a test 
is made to check if the data bit is set- If it is not seti the sub- 
routine return address is made to equal NEXT-NOTALR and exit is made 
to the dispatcher to await for Data Interrupt. If data is up-, the 
card reader is functioned with the code stored in TEMPUD- Status 
word is then read from the card reader and stored in TEMPUD- Status 
is then taken and stored- A test is made to check for a separator 
card- If it is a separator cardi reload memory and jump to label 
E0FRD. 
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If it is not a separator cardN there is an assembly option! either 
buffered or non-buffered. If it is non-buffered! input the next word 
and take status. A test is then made to check for end of operation- 
If there is no end of operation! the card transfer is not complete! 
and the cycle is repeated with a jump to label PETE- If end of 
operation status is up! jump to label NOTALR. If it is buffered! a 
check is made for a binary card- If it is a binary cardi jump to 
label LONGBf. If it is not a binary card! a check is made to see if 
the ASCIIb3 conversion is usedi if noti jump to label LONGBF. If the 
ASCIIb3 conversion is used! a check is made to see if it is an ASCII 
Request- If it is an ASCII Request! a jump is made to test if the 
request is formatted- If the request is not formatted! jump to label 
LONGBF. If it is formatted! there is an ASCII card in a binary deck 
and a jump is made to label SHORT. 

At label SHORTi load A with $0126. This is computer code for in- 
crease A by $2fi. Jump to label STBF. 

At label LONGBF! load A with $0150! increase A by $50i jump to label 
STBF. 

At label STBFi A is stored in BLENTH- The last address +1 of the 
buffer is placed in the first word of the buffer. Start the 170b 
Data Transfer and exit. 

At label TOSKIPi the first word that was read in routine DA172b is 
taken from storage TENPWD and placed in the first word of the flO 
word buffer. Then jump to label ASCII. 

The ASCII conversion that is used is an assembly option controlled 
by an equate instruction. If El3U ASCIbfl-C0> then the standard ASCII 
hardware conversion is used- If E(2U ASCIbfi-Cl or 2> then the soft- 
ware conversion is used. 

At label ASCIIi if E<2U ASCIbfK0>! the status word that was taken 
after word one was read in routine DA17Bb and stored in word STATUS- 
The binary and separator status bits are set after the first word is 
transferred to computer memory. A test is made on this word for 
binary status- If it is binary! a no 71 error code -C12> is entered 
in *A* and a jump is made to label ERROR. If it is not a binary 
card! the first word of the flO word buffer is transferred to the 
first word of the users buffer. A test is then made to see if the 
users buffer is full. If it is fulli terminate transfer and jump to 
label DONE- If it is not f ull i a test is made to see if 40 words 
have been transferred- If 40 words have not been transferred! jump 
to label ASCII and repeat the cycle. If 40 words have been trans- 
ferred a test is made to determine if the request was formatted. If 
the request is formatted! jump to label DONE. If the request is non- 
formattedi jump to label FEE DC D- 
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At label ASCIIi if E(2U ASCIbfi-Cl or 2>i a column is picked up from the 
bufferi converted to ASCII via subroutine CONVERTi shifted left fi 
bitsi and stored into the indicated core location. The PHYSTAB word 
CORE is then incremented. If the number of words requested has been 
readi label DONE is entered. If noti the buffer address is increment- 
ed. If the buffer has been emptied and this is a formatted request! 
label DONE is entered- If this is an unformatted request! label 
FEEDCD is entered. 

Subroutine CONVERT is a subroutine to convert 12 bit hollerith col- 
umns to ASCII- It does this by computing an index to a table of 
ASCII codes- Punches in column 2 thru 7 add $b2 through $b7 to the 
index respectively. A punch in columns 1 and 1 add $71 and $71 
respectively. A punch in column fl adds $lfl to the index. If the 
resultant sum exceeds $7F an illegal Hollerith punch combination was 
present and the Hollerith error flag will be set. If the index is 
below $ fi 0 ! the bottom 4 bits are saved and the zone punches are then 
processed* If column 12 is punchedi $70 is added to the index. If 
column 11 is punched! $b0 is added! and if column zero is punched! 

$50 is added. If the resultant sum exceeds $7 Ft more than one zone 
punch was present in the column and the punch combination is report- 
ed to be illegal and the Hollerith error flag is set as before! un- 
less the CDC subset option was chosen then the illegal punch is 
checked for 11-0 and 12-0 punch. If 11-0 is punched! it is process- 
ed as $7D and if 12-0 is punchedi it is processed as $7B- Whenever 
an illegal Hollerith punch is detected the ASCII representation for 
a question mark {?> is set in that column. By doing so the user is 
able to complete his readi identify the error and continue if he de- 
sires. The Hollerith error flag is processed at label T0HAKCJ. If 
no error is detected during the conversion the low order h bits of 
the index are used to access the ASCII character table and the con- 
version is complete. At label BB transfer the first word read in 
DA172L. and store it in the first word of the buffer- A word is ob- 
tained from the buffer via subroutine GETWRD- If this is the first 
card of the request! the card is checked to see if this is an end of 
file- If soi label E0FRD is entered! if noti the card is checked 
to see if it contains a Til punch in column one- If it doesi label 
FRDB2 is entered. If noti and it is not the first cardi the Til 
punch is missing and is reported via error code 12 to the Alternate 
Device Handler. If it is the first cardi the mode is set to ASCII 
and label ASCII is entered- 

At label FRDB2 the word just obtained is checked to see if checksum 
override is indicated. If soi the indicator is set- The sequence 
number is then checked. If incorrect and this is not the first card 
of a recordi this fact is reported to the Alternate Device Handler 
with error code {'ll set. If it is the first card the current se- 
quence number is then set to the one just read. The sequence num- 
ber is then incremented by onei and another word is obtained from the 
buffer via subroutine GETURD- 
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If this is the first card of the recordi this word should be the 
complemented record length. If non-negative i this fact is reported 
to the Alternate Device Handler with error code 10. If it is nega- 
tive! it is stored in PHYSTAB word Ifl. At label FRDB? the loop 
begins which gets the rest of the word in the record- 

The purpose of subroutine GETbIRD is to construct successive lb bit 
words from the 12 bit columns stored in the buffer. To perform this! 
4 columns are combined to produce three words. This is performed in 
three successive cycles as words are requested. Upon completion of 
each cycle! the next cycle is set for future entry. 

At label DONEi the interrupts are cleared and a jump is made to label 
MAKE<2- Upon return the diagnostic clock is set negative! and a jump 
is made to the IN172b + 1. 

At label ERRORi the error code and logical unit number are combined 
for output by the Alternate Device Handler! and bits 14 and IS of 
the request status PHYSTAB word are cleared- Status is saved! the 
controller is cleared! and subroutine MAKEfl is entered- Upon return! 
exit is made to the Alternate Device Handler- 

The purpose of subroutine MAKES is to set the address of the next 
word of the buffer if a READ request does not get as many words as 
requested. Bits 13i 14i IS of ERRTAB are set if there was a device 
failure! short read or end of file condition. Exit is made to the 
address stored in RETURN. 

At label FRDB?! if the remaining record length is zeroi exit is made 
to label FRDBfl to see if the checksum is correct. If noti the core 
address is checked to see if the number of words requested has been 
read. If soi record length is incremented and checked for zero- If 
noti reading continues until the entire record has been read- At 
this timei the complement of the checksum is read and the sum check- 
ed for zero. If noti and the checksum override was not indicated! 
error code four is reported to the Alternate Device Handler. If 
zero or checksum overriae was indicated! exit is made to label DONE- 

At label RDBINi the current core location is checked against LAST+1- 
If equal i one column only is to be read and label ONECHR is entered. 
If noti a word is obtained from the buffer via subroutine GETURD- 
It is stored into core and the core location is incremented. This is 
repeated until tne number of words requested has been readi at which 
time label DONE is entered. At label ONECHRi the low order four bits 
are cleared from the word just read and the word is stored into core. 
Label DONE is then entered. 

At label EOFRDi the error bit is set in the request status word of 
physical device table. Exit is then made to label DONE- This will 
cause entry to be made to the completion routine with the error 
indicator set without first going to the Alternate Device Handler. 
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50. 0 172=1-2 CARD READER DRIVER 

50-1 FUNCTION 

The 172T-2 Card Reader Driver is a standard software 
driver which will operate under the 1700 MSOS 3.0 
Operating System. Compatabi 1 ity is such That the 172=1- 
driver can be used to perform read operations on the 
1726/430. 

50.2 ENTRY POINTS 

IN172=I initiator entry 

CNITE'I continuator entry 

EX1721 error entry 


50-3 EXTERNALS 

ALTDEV Alternate Device Handler 

MAKES 

50.4 DRIVER DESCRIPTION 

At the ent-~y point EX172=l-i time expired-! error code zero 
is set and the Alternate Device Handler is entered. 

At the initiator entry-i routine FNR is entered to see i f 
a recuest is stacked. If not-i exit is made to the 
dispatcher. If there is a request-! the checksum 
accumulator-, packing cycle indicator-, hollerith error 
flag -. and sequence check words are cleared-, and exit is 
then made to symbol FEEDCD {feed a card>. 

At symbol EOFRDt the error bit is set in the request 
status physical equipment table word. The o+fset bit 
is set to cause the end of file card just read to be 
offset. Exit is then made to symbol DONt.. This will 
cause entry to be made to the completion routine with the 
error indicator set without first going to the Alternate 
Device Handler. 
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Routine CNVRT is a subroutine to convert 15-bit hollerith 
columns to ASCII. It does this by computing an index to 
a table of ASCII codes- Punches in columns 5 through 7 
add $b5 through $b7 to the index respectively. A punch 
in columns 1 and 1 add $71 and $71 respectively. A punch 
in column fl adds $16 to the index. If the resultant 
sum exceeds $7F an illegal Hollerith punch combination 
was present and the Hollerith error flag will be set. 

If the index is below $60 i the bottom 4 bits are saved 
and the zone punches are then processed- If column 15 is 
punched! $70 is added to the index. If column 11 is 
punchedi $b0 is added! and if column zero is punched! 

$50 is added. If the resultant sum exceeds $7Fi more 
than one zone punch was present in the column and the 
punch combination is reported to be illegal and the 
Hollerith error flag is set as before- Whenever an 
illegal Hollerith punch is detected the ASCII representation 
for a question mark-C*} is set into that column. By doing 
so the user is able to complete his readi identify the 
error and continue if he desires. The Hollerith error flag 
is processed at symbol TOflAKfl. If no error is detected 
during the conversion the low order b bits of the index fh 

are used to access the ASCII' character table and the 
conversion is complete. 

At entry point CN1751! the continuator or interrupt time 
entry! the base address of the physical device table! is 
placed in the index register and status is read. If alarm 
error is set! an error is reported via error code 5- If it 
is a data interrupt a column in input and stored in the 
buffer! and procedure EXIT is entered. 

At procedure EXIT! the buffer address in incremented! the 
interrupt on data! EOPi and alarm is selected. Exit is 
then made to the dispatcher to await the next interrupt. 

If the interrupt was an end of operation -CE0P> a jump is 
made to symbol NOTALR* At NOTALR the buffer address is 
re-initializedi and a check made to determine whether the 
operation is a formatted or unformatted READ. If it is a 
formatted READ procedure FRDBIN is entered. If unformatted 
ASCII i procedure ASCII is entered. II unformatted binary! 
procedure RDBIN is entered. 
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At procedure FRDBINi a word is obtained from the buffer 
via subroutine GETURD. If this is the first card of the 
requesti the card is checked to see if this is an end of 
file. If so i procedure EOFRD is entered. If noti the 
card is checked to see if it contains a 7-1*1 punch in 
column one. If it does-i procedure FRDBE is entered. If 
noti and the request is ASCII -i procedure ASCII is entered. 

If noti and it is not the first cardi the 7i1 punch is 
missing and is reported via error code IE to the Alternate 
Device Handler. If it is the first cardi the mode is set 
to ASCII and procedure ASCII is entered. 

At procedure FRDBE the word just obtained is checked to 
see if checksum override is indicated. If soi the indicator 
is set. The sequence number is then checked. If correct 
and This is not the first card of a recordi this fact is 
reported to the Alternate Device Handler with error code 
1 set. If it is the first card the current sequence 
number is then set to the one just read. 

The sequence number is then incremented Modulo ESLn and 
another word is obtained from the buffer via subroutine 
GETURD. If this is the first card of the recordi this 
word should be the complemented record length. If non- 
negativei this fact is reported to the Alternate Device 
Handler with error code 10. If it is negative! it is 
stored in a 3 HYSTAB location. At this point FRDB? the 
loop begins which gets the rest of the word in the record. 

The purpose of subroutine GETURD is to construct successive 
lb bit words from the IS bit columns stored in the buffer 
To perform thisi M columns are combined to produce three 
words. This is performed in three successive cycles as 
words are requested. Upon completion of eaci cvc lei the 
next cycle is set for future entry. 

At procedure DONEi the interrupts are cleared and the status 
is saved. Subroutine , MAKEfl is then enteredi the diagnostic 
clock is set negative i and routine FNR is re-entered to see 
if another request is waiting. 
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At routine ERROR-. the error code and logical unit number 
are combined for output by the Alternate Device Handler -. 
and bits 14 and 15 of the request status PHYSTAB word are 
cleared. The controller is cleared-, status is savedi and 
subroutine MAKE«2 is entered. Upon returni exit is made to 
the Alternate Device Handler. 

The purpose of subroutine HAKEU is to set the address of 
the rext word of the buffer if a READ request does not get 
as many words as requested. Other completion housekeeping 
common to normal and abnormal termination is performed by 
this subroutine- 

At label FRDB7-, if the remaining record length is zero-, 
exit is mde to label FRDBfl to see if the checksum is 
correct. If not-, the core address is checked to see if the 
number of words requested has been read. If so-, record 
length is incremented and checked for zero. If not-, 
reading continues until the entire record has been read-, 
reading continues until it has-, or the entire record read. 

At this time-, the complement of the checksum is read 
and the sum checked for zero. If not-, and the checksum 
override was not indicated-, error code four is reported 
to the Alternate Device Handler. If zero or checksum 
override was indicated-, exit is made to procedure DONE. 

At procedure FEEDCD-, feed a card-, the current buffer address 
is set back to the beginning of the buffer. The offset 
indicator is then checked. If set-, it is first reset to 
zero then the offset gate is set. The controller is 
cleared-, and interrupts selected on data-, alarm-, and end 
of operation. Exit is then made to the Dispatcher. 

At procedure FDBIN-. the core location is checked agains t 
LAST + 1. If equal-, one column only is to be read and 
procedure ONCHR is entered. If not a word is obtained 
from the buffer via subroutine GETURD. It is stored into 
core and the core location is incremented. This is re- 
peated until the number of words requested has been read, 
at which time procedure DONE is entered. At procedure 
0NECHR-, the low order four bits is cleared from the word 
just ~ead and the word is stored into core. Procedure 
DONE is then entered. 
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At procedure ASCII i read ASCII n a column is picked up 
from the buffern converted to ASCII via subroutine CONVRTn 
shifted left 6 bitsi and stored into the indicated core 
location. If this was a request for one character! 
procedure DONE is entered. If not another column is 
picked up n convertedn and stored into the lower fl bits 
of the core location. The core location is then 
incremented. If the number of words requested has been 
readt procedure DONE is entered. If noti the buffer 
address is incremented. If the buffer has been emptied 
and this is a formatted requesti procedure DONE is 
entered. If this is an unformatted request procedure 
FEEDCD is entered. 
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51.0 175A/430 Reader/Punch Driver 


Sl.l 

51.5 


51.3 


Function 

To operate the 175A/430 reader and punch. 

Entry Points 

EX173S: Time expired error entry. 

IN175A: Initiator entry. 

CN175A: Continuator or interrupt time entry. 

FF175A: Return to driver after sequence logging request. 

Cni75A: Completion address for sequence logging. 

Externals 


ALTDEV: Alternate Device Handler 

51. 4 Driver Description 

At the initiator entryi routine FNR is entered to see if a 
request is stacked. If not! exit is made to the dispatcher. 

If ther is a request -i the checksum accumulator •> packing cycle 
indicator! and tape motion control parameter are cleared. 

The current buffer address set to the beginning of the buffer. 
The request code is checked to see if this is a motion control 
request {for punching end of file cards}. If son the three 
motion codes are saved and symbol nORfIC is jumped to process 
them. If noti a check is made to see if an attempt is bsing 
made to switch from reading to punching or vice versa. If soi 
the connect code is changed to reference the appropriate station 
and bit 15 of Equipment Table Word 14 is checked to see if the 
attempted switch is to be reported as an error. If soi the 
Alternate Device Handler is entered wi th error code 11 set. 

If not! or the operator repeats the request! the request code 
is checked to see whether this is a 
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READ or a WRITE request. If it is a WRITE request, symbol PUNCH 
is jumped to. If it is a READ request, symbol FEEDCD (feed a 
card) is jumped to# 

At the entry point EX1728, time expired, error code zero is set 
and the Alternate Device Handler is entered. 

At symbol EOFRD, the error bit is set in the request status 
physical equipment table word. The non-deferred offset bit is 
set to cause the end of file card just read to be offset. Exit 
is then made to symbol DONE. This will cause entry to be made 
to the completion routine with the error indicator set without 
first going to the Alternate Device Handler. 

Routine CONVRT is a subroutine to convert 12-bit Hollerith columns 
to ASCII. It does this by computing an index to a table of ASCII 
codes. Punches in columns 2 through 7 add $62 through $67 to the 
index respectively. Punches in columns 1 and 9 add $71 and $79 
respectively. A punch in column 8 adds $ 8 to the index. If the 
resultant sum exceeds $7F, an illegal Hollerith punch combination 
was present and error code 8 is passed to the Alternate Device 
Handler. If the index is below $80, the l ottom 4 bits are saved 
and the zone punches are then processed. If column 12 is punched, 
$70 is added to the index; if column 11 is punched, $60 is added, 
and if column zero is punched, $50 is added. If the resultant 
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sum exceeds $7F, more than one zone punch was present in the 
column and the punch combination is reported to be illegal as 
before# If not, the low order 6 bits of the index are used to 
access the ASCII character table and the conversion is complete# 

At entry point CN1728, the continuator or interrupt time entry, 
the base address of the physical equipment table, is placed in 
the index register and status is read. If alarm status is set, 
echo check status is checked# If not set, the error is reported 
via error code 2# If set, and this is a WRITE request, the offset 
bit is set. Regardless of whether it is a READ or WRITE, the 

error is then reported via error code 7. If it is a data inter- 

rupt and a READ request is in progress, the column is input and 
stored into the buffer, and procedure EXIT is entered. If it is 
a WRITE request, a word is obtained from the buffer and is output 
to the punch station. Procedure EXIT is then entered. 

At procedure EXIT, the buffer address is incremented, the inter- 

rupt is cleared, and interrupt on data, FOP, and alarm is select- 
ed. Exit is then made to the dispatcher to await the next 
interrupt. 

If the interrupt was end of operation and a WRITE request is in 
progress, the request is checked to see if it is formatted. If 
so, procedure F0RM0P is entered. If unformatted and the core 
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location is equal to LAST+1, procedure DONE is entered. If not, 
procedure PUNCH is entered. 

At procedure FORMOP, the request is checked to see if it is 
ASCII. If so, procedure DONE is entered. If not, the switch is 
checked to see if the checksum has been punched. If so, procedure 
DONE is entered. If not, procedure PUNCH is entered. 

If it is a formatted REM), procedure FRDBIN is entered. If un- 
formatted ASCII, procedure ASCII is entered. If unformatted 
binary, procedure RDBIN is entered. 

At procedure FRDBIN, a word is obtained from the buffer via sub- 
routine GETWRD. If this is the first card of the request, the 
card is checked to see if it is an end of file. If so, procedure 
EOFRD is entered. If not, the card is checked to see if it con- 
tains a 7,9 punch in column one. If it docs, procedure FRDB2 is 
entered. If not, and the request is ASCII, procedure ASCII is 
entered. If not, and it is not the first card, the 7,9 punch is 
missing and is reported via error code 12 to the Alternate Device 
Handler. If it is the first card, the mode is set to ASCII and 
procedure ASCII is entered. 
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not the first card of a record, this fact is reported to the 
Alternate Device Handler with error code 9 set* If it is the 
first card, the message SQ,AA,BB is output on the list device 
where AA is the expected sequence number and BB is the one 
actually read* The current sequence number is then set to the 
one just read* 

The sequence number is then incremented modulo 256, and another 
word is obtained from the buffer via subroutine GETWRD. If this 
is the first card of the record, this word should be the com- 
plemented record length* If non-negative, this fact is reported 
to the Alternate Device Handler with error code 10* If it is 
negative, it is stored in a PHYSTAB location. At this point, 
FRDB7, the loop begins which gets the rest of the words in the 
record. 

The purpose of subroutine GETWRD is to construct successive 16 
bit words from the 12 bit columns stored in the buffer* To per- 
form this, 4 columns are combined to produce 3 words. This is 
performed in three successive cycles as words are requested. 

Upon completion of each cycle, the next cycle is set for future 
entry. 

At procedure DONE, the request is checked to see if it is a 
motion control request with write end of file codes remaining 
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to be processed* If so, procedure WEOF is entered* If not, 
interrupts are cleared and status is saved* If sequence logging 
is in effect, exit is made to the dispatcher to await completion* 
If not, subroutine MAKEQ is entered, diagnostic clock time is 
set negative, and routine FNR is re-entered to see if another 
request is waiting* 

At routine WEOF, the sequence base is reset and codes set up to 
punch one word unformatted with the word to be punched the column 
one configuration for an end of file card. The deferred offset 
switch is set and the punch request is begun. 

At routine ERROR, the error code and logical unit number are 
combined for output by the Alternate Device Handler, and bits 
14 and 15 of the request status PHYSTAB word are cleared. The 
controller is cleared, status is saved and subroutine MAKEQ is 
entered. Upon return, exit is made to the Alternate Device 
Handler. 


The purpose of subroutine MAKEQ is to set the address of the 
next word of the buffer if a READ request does not get as many 
words as requested. Other completion housekeeping common to 
normal and abnormal termination is performed by this subroutine. 

At label FRDB7, if the remaining record length is zero, exit is 
made to label FRDB8 to see if the checksum is correct. If not, 
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the core address is checked to see if the number of words re- 
quested has been read. If so, the record length is incremented 
and checked for zero. If not, reading continues until the entire 
record has been read. If the number of words requested has not 
been read, reading continues until it has, or the entire record 
read. At this time, the complement of the checksum is read and 
the sum checked for zero. If not, and checksum override was not 
indicated, error code 4 is reported to the Alternate Device 
Handler# If zero or checksum override was indicated, exit is 
made to procedure DONE. 

At procedure FEEDCD, feed a card, the current buffer address is 
set back to the beginning of the buffer and the deferred offset 
indicator is checked. If not set, the current offset indicator 
is checked. If set, it is first reset, then the offset gate is 
set. Interrupts are cleared and interrupt on data, EOP, and 
alarm selecte$. If data status is up and this is a punch opera- 
tion, exit is made to the point in code to punch the card. This 
indicates that punching of a card just read is to be performed 
and no feed is necessary. If data status was not up, exit is 
made to the dispatcher. If deferred offset is set, it is reset 
and offset for the next card is set. The point in code above 
which checks for current offset is then entered. 
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At procedure RDBIN, the core location is checked against LAST+1. 

If equal, one column only is to be read and procedure ONCHR below 
is entered. If not, a word is obtained from the buffer via sub- 
routine GETWRD. It is stored into core and the core location is 
incremented. This is repeated until the number of words requested 
has been read, at which time procedure DONE is entered. At pro- 
cedure CJNECHR, the low order 4 bits are cleared from the word 
just read and the word is stored into core. Procedure DONE is 
then entered. 

At procedure ASCII, read ASCII, a column is picked up from the 
buffer, converted to ASCII via subroutine CONVRT, shifted left 
8 bits, and stored into the indicated core location. If this 
was a request for one character, procedure DONE is entered. If 
not, another column is picked up, converted, and stored into the 
lower 8 bits of the core location. The core location is then 
incremented. If the number of words requested has been read, 
procedure DONE is entered. If not, the buffer address is incre- 
mented. If the buffer has been emptied and this is a formatted 
request, procedure DONE is entered. If this is an unformatted 
request, procedure FEEDCD is entered. 

The purpose of subroutine PCNVRT is to convert ASCII characters 
to 12 bit Hollerith columns. The ASCII character is checked to 
see if it is greater than or equal to $20 and less than $60. 

£ \ 
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If not, it is converted to zero (blank column)* If it is in 
range, a direct table look-up is performed to get the 12 bit 
Hollerith equivalent. The column is then stored into the buffer, 
the buffer address is incremented, and return is made to the 
caller. 


The purpose of subroutine PUT is to separate the 16 bit binary 
input words into successive 12 bit columns and store them into 
the buffer for punching. At entry, the checksum is updated and 
the unpacking cycle is determined. At cycle 1, the high order 
12 bits of the input word are placed into bits 0-11 of buffer 
word one. The low order 4 bits are placed into bits 8-11 of 
buffer word two. At cycle 2, the high order 8 bits are put into 
bits 0-7 of buffer word two and the low order 8 bits into bits 
4-11 of buffer word three. At cycle 3, the high order 4 bits 
are placed into bits 0-3 of buffer word three and the low order 
12 bits into bits 0-11 of word four. The buffer address is then 
incremented by four. If the buffer is now full and the request 
has not been completed, the core address is incremented by one. 
Routine FEEDCD is then entered. 

At label PUNCH, cycle 1 is set in subroutine PUT and the request 
is checked to see if it is ASCII. If so, exit is made to label 
PUNCH6. If not, the request is checked to see if it is formatted. 
If so, exit is made to label PUNCH3. If not, the contents of the 


CA 138*1 REV 10-67 



CONTROL DATA CORPORATION 
_ Ardgn Hi lls D evelopm ent division 


MAR 51371 


DOCUMENT CLASS L MS 

PRODUCT NAME 1700 Operating System 

PRODUCT MODEL NO. EPDfa"3 »Q 


PAGE NO. 


51.10 


MACHINE SERIES 


1700 


indicated core location are picked up and subroutine PUT is 
called. Upon return, the core location is compared to last 
location plus one. If equal, switches are set to indicate the 
request is formatted, this is not the first word, and the check- 
sum is punched. This is to utilize common code in the formatted 
binary punch portion of the driver. If not equal, the core loca- 
tion is incremented and checked as before. If not equal to last 
location plus one, the sequence above is repeated. 

At label PUNCH6, the switch is checked to see if this is the 
first card of the request. If so, exit is made to label PNC12. 

If not and the request is formatted, exit is made to label PNC16. 
If not, the core location is checked to see if the request is 
complete. If so, exit is made to procedure DONE. If it was the 

first card, the switch is reset. The contents of the core loca- 

tion are then picked up and the two characters converted and 
stored into the buffer via subroutine PCNVRT. The core location 

is then checked to see if the request is complete. If not, the 

core location is incremented. If the buffer is full, exit is 
made to routine FEEDCD. If not, the core location is checked to 
see if the request is complete. If not, the sequence is repeated. 
If it is, zero is put in A and the cycle is repeated to fill the 
rest of the card with blanks. 
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At label PUNCH3, formatted binary punch requests are processed. 
The first word is constructed to contain the sequence number and 
a 7,9 punch. It is put into the buffer via subroutine PUT. The 
switch is then checked to see if this is the first card of the 
record. If so, the switch is reset and the complement of the 
record length is computed and placed in the buffer via subroutine 
PUT. A word is then picked up from core and put into the buffer 
via subroutine PUT. The core location is then incremented and 
checked to see if the requested number of words has been com- 
pleted. If not, the cycle is repeated. If so, the switch is 
checked to see if the checksum has been punched. If not, it is 
marked punched and put into the buffer by subroutine PUT. If the 
card is not yet filled, zeroes are issued to the buffer by PUT 
until it is filled. 
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52.0 1740/501 Printer Driver 

52. 1 Function 

The 1740/501 Line Printer Driver is a standard software driver 
which will operate under the 1700 MSOS 2.1 Operating System. 
This driver can be used by both the 1742 Line Printer and the 
501 Line Printer. This driver can be set up to reside on 
Mass Memory. 

52.2 Entry Points 

The following are the 1740/501 Line Printer Driver entry 
points: 

IN501 Initiator Entry Pod nt 

CN501 Conti nuator Entry Point & Interrupt Entry Point 

ER501 Error Routine Entry Point 

52.3 Externals 

The following are externals used by this driver: 

ALTDEV Alternate Device Handler Entry 

MAKEfl Common Driver Completion Routine used before 

entering COMPRfl. 

52.4 General Program Information 


52.4.1 Word Nine - Various Aspects 


The following is a listing of which bits of word It of the 
Physical Device Tablei are used by the driver: 


BIT USE 


D 

1 

2 

3 

4 

5 


1 for a write operation 
1 if formatted 
1 if pending upspace 

ASCII-Binary biti not used by the Printer Driver 
1 if lower character 

1 if first entry into the driver -Cfor preceding 
carriage control! 
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52. 4. 2 LOCATIONS in the COMMUNICATIONS REGION 

The following are communication region locations which are 
referenced by this driver: 


LOCATION 

CONTENTS OF THE LOCATION 


$007F 

$0A 

$DDFF 

$20 

$C00D 

$22 

$0000 

$30 

$2000 

$3fi 

$FFDF 

$40 

$DFFF 

$B5 

Location of FNR 

$Bb 

Address of FNR Subroutine 

$EA 

Location of the Dispatcher 


52.5 General Driver Description 

The 17M0/501 Line Printer driver uses two types of requests: 
the FWRITE and WRITE. Binary-ASCII mode has no significance 
and will be ignored. For a more detailed description of the 
format of these requests -i see the 1700 Operating System Refer- 
ence Manual. Two types of modes can be used by this drivern 
the FORTRAN and the NON-FORTRAN modes. Word 17 of the Physical 
Device Table for the printer contains the logical unit number 
of the FORTRAN line printer. When the logical unit number 
specified by the request is the same as the number in word 
17 of the Physical Device Table for the printeri the FORTRAN 
mode of operation is used. All other logical unit numbers 
will be handled inthe NON-FORTRAN mode. 

Formatted Write 

The Formatted Write is used in the FORTRAN and NON-FORTRAN 
modes as described below: 
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55.3 


■C11F0RTRAN Mode 


When performing a Formatted Write, this mode will interpret 
the first character of the record for print control and 
therefore will not print the first character. The following 
chart lists the characters used for print control and the 
action which will be performed before printing. 

CHARACTER ACTION BEFORE PRINTING 


0 

1 

+ 

All Others 
■C5JN0N -FORTRAN Node 


Double Line Space 
Top of Form 
No Upspace 
Upspace of 1 Line 


In this mode-i an upspace of 1 line will be performed before 
printing and the first character of the record will be 
printed. 


UNFORMATTED WRITE 


In both the FORTRAN and the NON-FORTRAN modes, an Unformatted 
Write causes no preceding upspace to be performed and print- 
ing to be done only if one of the following appears; $03, $04, 
$0D, or $1B followed by a $30. 


55. b Driver Description 
Initiator Entry 

At the Initiator entry-i IN501-I I is set equal to the address 
of the device^s Physical Device Table. FNR subroutine is entered 
to check if there is a request stacked. If there are no requests 
stacked-i exit is made to the Dispatcher. If there is a request 
available i location {TEMP}, a temporary buffer-i is cleared^ the 
controller is also cleared. A check is then made of MAXLIN to see 
if page control is wanted. If MAXLIN is a negative number-i the 
line counter {COUNT} is cleared^ if MAXLIN is a positive number, 
that number is stored for future use. Label AFALAR is then entered- 

Routine DONE; This routine is entered after successful completion 
of a request. The controller is cleared, the Diagnostic Clock is 
set to a -1 and the hardware status is saved- After executing the 
external subroutines MAKES and COMPRfi, the location of the Initiator 
Entry point +1 is entered to see if another request is waiting. 
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Error Entry 

At the Error routine entryi ER501i I is set £0 equal add- 
ress of the device^s physical device table. The error code is set 
to zero and then routine ERROR is entered. 

Routine ERROR! The error indicator -CERRTABJ is seti the status is 
checked and stored and the controller is cleared. The error code 
is picked up-i the Diagnostic Clock is set to a -1 and then the error 
code-i in (2i is passed to the Alternate Device Handler. 

Continuator Entry 

At the Continuator entry-i CNSOl-i I is set to equal the address 
of the device^s physical device table and the status is checked. 

If the entry was caused by an Alarm interrupt-i the error code is set 
to a 2 and an exit is made to routine ERROR. If entry was not caused 
by an Alarm-i label AFALAR is entered. 

Routine AFALAR s Upon entering this routine-i a check is made to see 
if the request is formatted. If it is not formatted-i jump to the 
N0F0RM routine because an unformatted write causes no preceding up- 
space to be given. If it is formatted-i check if this is the first 
entry into the Continuator. This check is to determine if carriage 
control functions are to be issued. If the request is formatted-i 
but not the first entry into the Continuator-! there is to be no 
preceding carriage control operation before printing-i therefore jump 
to the N0F0RM routine to continue processing the request. 

If the request is formatted and the first entry into the Continuator -i 
status is checked to see if the printer is already engaged in a 
carriage control operation. If the printer is busy-i the temporary 
buffer is cleared-i previous interrupts are cleared and Interrupt on 
End of Operation and Alarm is seti the hardware status is savedi the 
Diagnostic Clock is set to a li and an exit to the Dispatcher is then 
made. If the printer is not busyi a check is then made to see which 
mode is being usedi the FORTRAN or NON-FORTRAN mode. If the FORTRAN 
mode is being usedi enter routine FTNflODi if the NON-FORTRAN mode is 
being usedi enter routine N0NFTN. 

Routine FTNdOD! In order to have reached this routinei the follow- 
ing must be true! -Cl> the request must be formattedi -C2> this must 
be the first entry into the Continuator by the requesti -C3> the 
request must be used in the FORTRAN mode. This routine picks up a 
word and then stores it in -CODDI^ the present core location is in- 
creased by 1 for future use. A check is then made to see what the 
first character is in order to decipher which carriage control func- 
tion should be performed. 
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If the first character is a +i no preceding upspace is to be perform- 
ed! therefore! enter the N0F0RH routine in order to continue process- 
ing. 

If the first character is a li a page eject is to be executed- The 
line counter -CC0UNT>! used with page format control! is cleared and 
a page eject function is performed- The N0F0RM routine is then enter- 
ed in order to continue processing- 

If the first character is a zero! double spacing occurs. The line 
counter {COUNT}! used with page format control! is increased by 1- 
The MAX routine is then entered- In this routine the line counter 
{COUNT} will be increased by 1 againi so effectively the line counter 
{COUNT} has been increased by a 2. Upon returning from the I1AX routine! 
the double space function is then processed- The NOFORtl routine will 
then continue processing the request. 

If the first character is anything other than one of the above i a 
single space function will occur- The N0F0RM routine will then conti- 
nue processing the request- 

Routine NONFTN: In order to have reached this routine! the following 

must be true: {1} the request must be formatted! {2} this must be the 

first entry into the Continuator by the request! {3} the request must 
be used in the NON-FORTRAN mode- The storage location {ODD}! used for 
temporarily storing odd characters! is cleared and an upspace of 1 line 
is performed- Routine MAX is then entered to check the line counter 
for page format control. Upon returning from the MAX routine! the 
N0F0RI1 routine is entered so that processing will be able to continue. 

Routine NOFORM: Upon entering this routine! a check is made to see 

if there is a non-print function waiting to be completed. If soi 
entry is made to routine ILEGAL- If not! check if an upspace function 
is to be executed. If the upspace switch is set! clear the switch! 
execute an upspace function and enter routine MAX to check the line 
counter {COUNT}. Upon returning from routine MAXi the NOFORM routine 
is entered! with the upspace switch {SWITCH} now set to zero! to con- 
tinue processing the request- If the upspace switch is not set! equal 

to zero! the NOUPSP routine is entered to examine each remaining word 
of the print line- 

Routine NOUPSP: In order to have reached this routine! carriage con- 

trol has been taken care of. From this point on! each remaining word 
of the print line is examined to see if it contains characters outside 
the printable range of $2D-$5F. Upon entering this routine! a check is 
made to see if all the characters have been checked and transferred- 
If the transfer has been completed! routine FINISH is entered- If the 
transfer has not been completed! the next word is picked up. At this 
word a check is made for odd characters. If there are odd characters! 
store the word in {ODD} to be worked with later and then combine the 
upper character of the word just picked up and the lower character of 
the word previously stored in {ODD}! which is now in the <2 register. 
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Routine NOUPSP: tcont*> The LEGAL routine is then entered to check 

this newly formed word. If there are no odd characters! routine 
LEGAL is entered directly. 


Routine LEGAL: At this point! a check is made to see if the charac- 

ters are legal. If either of the characters are illegal! enter the 
ILEGAL routinei if both characters are legal! output the word to the 
buffer! increase the character count and the core location. The 
NOUPSP routine is then entered to check if the transfer is complete. 

Routine MAX: This routine checks if page format is wanted. The 

value in {MAXLIN} will be negative if page format control is not 
wantedi the value in {MAXLIN} will be positive if page format control 
is wanted. If page format is not wanted! control will return to the 
section in the program it came from +!•, If format is selected! in- 
crease the line counter -CCOUNTI by 1 and check If the number of lines 
printed is equal to or greater than the stated number of lines in 
{MAXLIN}. If equal to or greater! a page eject function is perform- 
ed and the line counter is cleared. If less than the stated number 
in {MAXLIN!! output the paper motion function and continue process- 
ing. 


Routine FINISH: To have reached this routine! all the characters 

have been checked and transferred to the buffer. In order to com- 
plete this request! a check must be made to see if the request is 
formatted or unformatted. If the request is unformatted! enter the 
(2ABUG routine. If the request is formatted! check if there are any 
odd characters. If any odd characters are present! {ODD! will not 
equal zero! clear storage location {0DD!i send the odd character 
and a space to the buffer! and return to the LEGAL routine to check 
if this last character is legal. If there are no odd characters! 
{ODD! will equal zero! check if the printer is busy. If it is busy! 
clear {TEMP>! clear the previous interrupts! set interrupt on End 
of Operation and Alarm! save the hardware status! set the Diagnostic 
Clock to a 1 and jump to the Dispatcher. If the printer is not busy! 
print the buffer! mark the request unformatted and enter the CLEAR 
routine. 


Routine CLEAR: In this routine! the character counter and the temp- 

orary storage area are cleared. Previous interrupts are clearedi 
interrupts on Data and Alarm are selected! the hardware status is 
saved! the Diagnostic Clock is set to a 1 and then a jump is made 
to the Dispatcher. 

Routine (3ABUG: In order to have reached this routine! the request 

must have been unformatted and all of the characters have been exa- 
mined and transferred to the buffer. A check is made to see if there 
are any odd characters. If there are no odd characters! exit is 
made to routine DONE. If there is an odd character! check what the 
character is. If it is not one of the following! exit to routine 
DONE. 
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Routine flABUGs {cont.} 


$03 End of Text 

$04 End of Transmission 

$0B Vertical Tab 

$0C Form Feed 

$0D Carriage Return 


If it is one of the above! they are considered legal and will be pro- 
cessed. The odd storage area {ODD} is cleared and routine ILEGAL is 
entered to process the above codes. 

Routine ILEGAL! This routine checks the upper character for an ille- 
gal character. If the upper character is legal -i a switch is set and 
then the lower character is checked. If one of the following illegal 
characters! below the printable range of $50-$SF-i is detected! enter 
the routine specified on the right. All other characters below the 
printable range will enter the IGNORE routine. A synopsis of the 
routines! listed below! will follow the chart. 


Character 

Routine 

$03 

EOT 

$04 

EOT 

$0T 

TAB 

$0B 

VTAB 

$0C 

F0RMFD 

$0D 

CARRET 

$1B 

ESCAPE 


Routine EOT! This routine will process the $03 and $04 codes. Upon 
entering this routine! the wordi containing the illegal code! $03 or 
$04i will be saved in the temporary storage location {TEMP}. A check 
is made to see if the printer is busy. If it is busy! previous inter- 
rupts are cleared. Interrupts on End of Operation and Alarm are se- 
lected! the hardware status is savedi and the Diagnostic Clock is set 
to 1. Exit is made to the Dispatcher. If the printer is not busy! 
the upspace switch is set so that the paper wil 1 be upspaced one line! 
the next available core location is set up! and the odd character 
storage area {0DD> is cleared. If the $03 or $04 is in the upper 
character! enter the PRT0UT routine and do not increase the character 
counter or the core location! if the $03 or $04 is in the lower charac- 
ter! place a space in the lower character position. The legal charac- 
ter in the upper character position! and the space are then sent to the 
buffer. The character counter and core location are both increased. 
Enter the PRT0UT routine! so that the buffer may be printed. 

Routine PRTOUTs In order to have reached this print routine! the 
request must be unformatted. This routine prints the buffer and 
exits to the CLEAR routine* 
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Routine TAB; The routine computes the number of spaces to the next 
tabstop and then sends the computed number of spaces to the buffer. 

The number of spaces between each tabstop is set at assembly time 
by an ECJU TABSTOPIX!-, X = number of spaces- Upon entering this 
routine! the word-, containing the $01-, is stored in -CTEP1 P> - A check 
is made to see if the $01 is in the upper character position. If it 
is-, enter the flORSPC routine- If the $01 is in the lower character-, 
place a space in the lower character position so that the upper 
character and a space are placed in the A register. Enter the ATOBUF 
routine. 

Routine NORSPC: This routine increases the space counter. A check 

is made to see if the space counter equals zero lit will equal zero 
if the next tabstop has been reached!. If the next tabstop has not 
been reached, -CLC does not equal zero), load the A register with 
$2020 -Cspace-, space! and then enter routine ATOBUF. If the next tab- 
stop has been reached-, a check is made to see if the $01 is the upper 
character. If it is the upper character-, place a space before the 
lower character and transfer this newly formed word to the Q register 
and enter routine LEGAL. If the $01 is the lower character-, a check 
must also be made to see if any odd characters are present. If there 
are odd characters present {ODD does not equal zero!-, pick up the 
characters! in {ODD! by placing them in the <2 register and then 
clear the storage location {ODD!. A space is placed before the odd 
character and transferred to the Q register before entering the LEGAL 
routine. If there are no odd characters present {ODD = 0!i place a 
space in {ODD!, increase the core location by 1 and enter the NOUPSP 
routine - 

Routi ie ATOBUF; This routine sends the word in the A register to the 
buffe’. The space count is increased by 1. A check is made to see 
if the space counter is equal to zero, if equal to zero-, the next 
tabstop has been reached. If equal to zero, a check is made to see 
if the upper character is the last space before the next tabstop. If 
it is the upper character-, enter the IGNORE routine to blot out the 
space in the lower character. If the last space is in the lower 
character-, increase the core location and then enter the NOUPSP rou- 
tine- If the next tabstop has not been reached {space counter will 
not equal zero!, enter MORSPC routine. 

Routine VTABJ This routine processes the $0B code, it uses a func- 
tion :o select format tape level 2. Upon entering this routine-, the 
word-, containing the $0B code-, is stored in {TEMP! for future use. 

The printer is checked to see if it is busy. If it is-, previous 
interrupts are cleared-, Interrupts on End of Operation and Alarm are 
selected-, the hardware status is saved and the Diagnostic Clock is 
set to 1. Exit to the Dispatcher is then made. If the printer is 
not busy-, activate format channel for tape level 2 and then enter the 
IGNORE routine. 
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Routine FORflFD: This routine processes the $0C codei it issues a 

page eject function. Upon entering this routine! the wordi contain- 
ing the $0C code! is stored in {TEMP}. A check is made to see if the 
printer is busy. If it is! previous interrupts are cleared! inter- 
rupts on End of Operation and Alarm are selected! the hardware status 
is saved and Diagnostic Clock is set to li exit is made to the Dis- 
patcher. If the printer is not busy! the line counter! used with 
page format control i is cleared and a page eject function is executed. 

Routine CARRET: This routine processes the $0D code i it prints the 

buffer. Upon entering this routine! the word! containing the $0D 
code! is saved in {TEMPI- A check is made to see if the printer is 
busy. If it is busy! previous interrupts are cleared! interrupts on 
End of Operation and Alarm are selected! the hardware status is saved 
and the Diagnostic Clock is set to li an exit is then made to the 
Dispatcher. If the printer is not busy! set the upspace switch! and 
check if the £0D is in the lower character. If it is in the lower 
character! combine the upper character and a space to finish packing 
the buffer. The character counter and the core location are both 
increased- The buffer is printed and then the CLEAR routine is 
entered. If the SOD is in the upper character! the buffer is print- 
ed and routine CLEAR is entered. 

Routine ESCAPE: This routine processes the SIB code! by examining 

the character following the escape character and by issuing the appro- 
priate function. Upon entering this routine! the word! containing 
the SIB code! is stored in -CTEHP>. A status check is made to see if 
the printer is busy. If it is busy! previous interrupts are cleared! 
interrupts on End of Operation and Alarm are selected! the hardware 
status is saved! the Diagnostic Clock is set to 1 and an exit to the 
Dispatcher is made. If the printer is not busy! a check is made to 
see if the upper character is the escape character {$1B>. If it is 
the upper character! pick up the word stored in {TEMPI and enter the 
GOTES routine. If the $1B is the lower character! pick up the upper 
character of the next word to determine what the function character 
will be- Combine the $1B and this upper character and enter routine 
GOTES. 

Routine GOTES: This routine checks which director function should be 
issued. The first check is for the print function {$30]-! if equal to 
$30 enter the Print routine! so that the buffer may be printed- If 
found to be less than $30! increase the core location and enter the 
N0UPSP routine because any character! when accompanied with the $1B! 
below $30 is not considered to be a director function. If the func- 
tion is greater than $30i but less than $40i this routine will keep 
shifting the bit 1 place at a time! to determine which function 
should be issued. The following is a chart of the possible 1740/501 
Line Printer functions! all other codes will be ignored: 
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Routine GOTES; {cont-I 


ESCAPE CODE 

$1B30 

$1B31 

$1B32 

$1B33 

$1B34-$1B3‘1 

$1B3E 


1740 FUNCTION 
Print 

Single Space 
Double Space 
Advance to Level 1 
Advance to Level 2-7 
Advance to Level 12 


Once the function is determined! the director function is executed. 
A check is then made to see if the $1B is the upper character- If 
it isi increase the core location and enter NOUPSP routine- If it 
is in the lower character! pick up last legal character and then 
increase the core location and enter the NOUPSP routine. 


Routine PRINT; The word in {TEMPI is picked up- A check is made to 
see if the upper character is the $1B- If it is the upper character! 
increase the core location and enter the PRTOUT routine- If it is 
the lower character! check if there are any odd characters. If there 
isi clear {ODDIi send the upper character and a space to the buffer! 
increase the character counter and the current address and then enter 
the PRTOUT routine. If there are no odd characters! store the lower 
character {unused! in {0DD>! send the upper character and a space to 
the buffer! increase the core location and increase the character 
counter and then enter the PRTOUT routine- 


Routine ILEGAL also checks the range of characters to see if they 
can be printed- If the character found is less than $20 and not 
one of the following! enter routine IGNORE- 

$03 

$04 

$ 0=1 

$0B 

$0C 

$0D 

$1B 

If the character is greater than $20i check if the character is be- 
tween the range of $U0 and $7F. If the character is found to be in 
the range of $b0 and $7Fi enter routine TRNSLT so that the lower 
case character will be converted to the upper case character in the 
printable range- 

If the character is found to be greater than $7Fi enter routine 
IGNORE. 
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Routine TRNSLT: This routine processes the character found in the 

range of SLO-^TF by translating the character in its lower case 
■C$tiO-$7F} to its upper case -C=?m]-$5F} . A check is made to see if 
the illegal character is in the upper character of the word- If the 
illegal character is the upper character! subtract twenty from its 
ASCII value by masking with 5DFFF. Enter routine LEGAL to continue 
processing. If the illegal character is the lower character! sub- 
tract twenty from its ASCII value by masking with $FFDF and then 
enter routine LEGAL. 


Routine IGNORE! This routine prohibits the printing of the illegal 
character. Upon entering this routine! a check is made to see if 
the illegal character is the upper character of the word- If it is 
the upper character of the word! enter routine YSILGL* If it is the 
lower character! shift the illegal character to the upper character 
position and then enter routine YSILGL. 

Routine YSILGL! This routine checks if there is an odd character. 

If there is an odd character! combine the odd character with the 
saved! legal character! clear the odd character storage location 
{ODDI and jump to routine LEGAL to check the legality of the newly 
formed word. If there are no odd characters! store the saved legal 
character in -C 0 D3» ! increase the core location and then enter routine 
NOUPSP. 


1 


2 


4 


5 


* 



MAR 51971 













1 


2 


4 


5 



' 1 

- 

■— 

r 

0l X 

X« KA.T* of 
«*>hcc« 

0«VICC TASLC 

■ 

1 

r 

SCT 

d«M» r# 



r*«T e .st?A.> 

^mOlCCTOA 

,R«qu<*t 

Icmtos 

— — • 


| ~ * — — ■■■■■» 

IS Wt. V»cow*>m| 

. STATUS 
CLUHL toftTroltaf 


/ 


PfCHvP tfror 

c*o<. 




:CLCML 

ttJOTVTfU 

i 

>llcA 

1 

r , . 

Itutv* pvouvood 

\f\T«rTwpts 
iS*i.9A>T AT«M> 


j — 

GOWVStttC «Jrror 

! 

i 

* . - * 

Set Ai^awwc 


? ▼ 

1 sct Dta^noctic 

QoC’C «r%6 
U<)K*W umr 
1 Xurnfteg- 


ClffCX f •/ 

iCUOCC. to A , 




j -/ 


i status 


t 

\ 


Mak&q. 




/r? 



DOCUMENT — 

CLASS 2MS 


PROJECT NO. 

ES 

APPROVED 

DATE 

OOCUMENT _ _ i ^ 

title mfln /*%<M 


PROJECT MGR. 




Rri r\^#jr* DnutL 

PACE 2fOF IH 

PROJECT NAME 





TASK NO. 



mmm 


DATE i - TO 

TASK NAME 



I^MI 1 


TO 


cn 

CO 


CONTROL D AT ^CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE | | 

FLOWCHART JS 

DECISION TABLE 

OTHER □ 


A A 1 3 85 (PORMSRLY CA12?- 


PRINTED IN USA 


Ln 

ru 


t H 
UJ 











3 


4 


5 


B 



i 






rfeSvr/O 


00 c c L u r, e 8 NT jcm s t a y c p m e n o o 

PROJECT NO. 

REV 

APPROVED 

DATE 

ooc r'iTLE T |04o>ljf’ l oy Ltn*- /^rttvier 

PROJECT MGR. 




Driu«.r _ pa«eJJ of / 7 

PROJECT NAME 




numbermi 

TASK NO. 




DRAWN BV Kv L> ^ °* TB jzl 12. 

TASK NAME 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 
FLOWCHART 
DECISION TABLE Q 
OTHER □ 


A A 1 385 (FORMERLY CA127-1) 




PRINTED IN USA 

vy 


MAK 5 1971 Page S5 .m 




'CH*Ol 


fl 


! GL X 

X* *etr. of 
Ptl/icc'* pkytuA^ 

?p«u»tc *^° LC 


v®ej»u.«.4T 


w 


.^4LMWN 

y stax* 15 

\ ? 


r. 


jBrJTHy " > . -<«S- 

? /" 


v y 





/f 5erf<r Ar$r 

ies 

' BoaV x 

. L ^ 

ou/rfch 


? / 



t . . 

i . * Aki *1 

■■■:•■• r - '>V ■ 


i > 


£>*>& (ZoJt> 



Hes 


t , 

,^r. 


HI 


CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [~~~| 

FLOWCHART S 

DECISION TABLE [~~| 

OTHER □ 


APPROVED I DATE 



A A 1 3 85 (FORMERLY CA127-1 


PRINTED IN USA 


-T 













1 


3 


4 


5 


V 





n z. 


t 

,~J 




4ps*^ 






T-E »hoo 

PROJECT NO. 

REV 

APPROVED 

DATE 



PROJECT MOR. 




1 Dnuc.C 

PACE S or n 

PROJECT NAME 




Inumber^i 

TASK NO. 




| PRAWN BV /Uy.L-Fl. 

datb LJLa 

TASK NAME 





CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART Pgjj 

DECISION TABLE || 

OTHER □ 


“D 

Qi 

(O 

ro 


In 

ru 

■ 

b-» 

Ln 


A A 1 385 (FORMERLY CA127-1) 





PRINTS) IN USA 



MAR 5 1971 








2 


. . 3 


4 


5 


\ '/ 




15 




! 

W 


; *• 


8 tc*r unt 

Counter 

P4« «&ec r 
puncTffli 


»wr«,Mt Unt 
counter 

D*u*kt softc* 

fijjjgrijjj 4 ^ 


CONTROL DATACORPORATION i document 
SOFTWARE DOCUMENT * CLASS 


SAMPLE CODE 


FLOWCHART 
DECISION TABLE 
OTHER 


MACH. 4 
TYPE | 


PROJECT NO. 


APPROVED 



A A t 3 88 (fORMERLY CA127-1 


PRINTED IN USA 


Page 52.1b 


























1 


2 



A A 1 383 (FORMERLY CAl27-t ) 



P**IWTF* m U5J* 















MAR 5 1971 










































1 


2 


4 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

m 

DECISION TABLE 

□ 

OTHER 

□ 



m 



DOCUMENT _ 

CLASS 

MACH. 
TYPE | 


PROJECT NO. 

APPROVED 

DATE 


nor i imfn 
TITLE 



PROJECT MOR. 


PROJECT NAME 


TASK NO. 


TASK NAME 



AA 1 303 (FORMERLY C A127-1 > 


PRINTS) IN USA 


MAR 5 1971 p age 52.22 























•no 

A 

















2 



A A 1 385 (FORMERLY C A 127-1 ) 



PRINTED IN USA 



















2 



A A 1 3 85 (For 


J- Y C A127-1 ) 



















2 


4 


5 



MAR 5 1971 

















Page 55.57 































CONTROL DATA CORPORATION 

Arden Hills Development division MAR 5 197| 

DOCUMENT CLASS PAGE NO 53 vl 

PRODUCT NAME 17H0 Operating System 

PRODUCT MODEL no E0DLm3.D MACHINE SERIES 1?0Q 

53.0 1731/fc>01 Unbuffered Magnetic Tape Driver 

53.1 Introduction 

This tape driver is composed of six modules which may be com- 
bined in various ways to make up a tape driver. The modules are: 

TAPEDR - The traffic director and tape motion control 
processor . 

T14 - The tape motion control request processor. 

RWBA - Processes the READ and WRITE requests in either 
binary or ASCII mode. 

FRWA - Processes the FREAD and FWRITE requests in 
ASCII mode. 

FRWB - Processes the FREAD and FWRITE requests in 
binary mode. 

RECOVR - Error recovery routine. 

TAPEDR must always be included as all requests pass through it. 

If density changes and/or tape motion control is desired TIM 
must also be included. If T14 is not included! a user call 
will result in an illegal request diagnostic and job termination. 
In order to perform a read or write operation on magnetic 
tape any combination of RWBA-i FRWA and FRWB routines must be 
included in the tape driver. A request for one of these routines 
which is not in resident will result in an illegal request 
diagnostic and job termination. RECOVR may be included in the 
driver or replaced or omitted at the users option. If an error 
is detected and this routine is not in resident! the operator 
will be notified of an unrecoverable error {Alternate Device 
Handler} and given an opportunity to take action. 
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S3.3 Physical Device Table 

Each tape unit in the system will have a PHYSTB {physical 
equipment table} entry as follows: 
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WORD 17 contains the location of WORD 0 of the PHYSTB entry of 
another tape unit connected to the same controller. Through 
this word -i all the tape units connected to a controller 
are threaded together in a circular manner. 

If only one tape unit is connected to a controller! word 15 
must contain the address of its own PHYSTB ent ry . 

53.3 Assumptions 

1. The driver must not be interrupted while performing a 
data transfer . 

3. The driver can service on only one tape at a time. 

3. All callers must be at lower priority levels. 

53. M TAPEDR Description 

This module processes all the requests to the tape driver 
and sends them to the proper routine. It also contains 
the tape motion control request rout i ne and several subroutines 
used by all portions of the driver. 
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53-4.1 INTERNAL DESCRIPTION 

On entry, the driver checks to see if another request is active. 

If another request is active, exit is made to the dispatcher as the 
driver will pick up the current request later on. If no request is 
in progress, the driver waits till the controller becomes inactive 
and then proceeds with request processing. 

Two types of requests are processed, tape motion and data transfer. 
Suitable table setups are made for each type. When table 
setups are comp let ei the unit is connected and mode and 
density selected. The requests are then passed to a 
corresponding processing routine is not present i job 
termination results. 


53.4.2 


53.4.3 


USE OF INTERRUPTS 

Interrupts are used to signal completion of the following tape 
motion operations: 

1. Backspace record 
2 • Rewind 

3. Mark end of file 

While the above operations are in progress the driver has relin- 
quished control. All other operations require that the driver 
retain control until they are completed. A partial exception is 
the unload request. The driver initiates this request and exits. 

No completion is signalled by the controller. 

TPMCTL 

At TPMCTL a parameter is extracted from WORD 11 and placed in the Q 
register to use as an ordinal to the request table. The remaining 
parameters are restored temporarily in WORD 11. Using the ordinal 
in Q the proper routine address is picked up and placed in Q and 
a jump is made to the effective address formed by the value in Q 
plus one. The table format is: 
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TPMTBL + 0 

DONOTH 

+ 1 

OWP BSPR 

+ 2 

J MP MARKEF 

+ 3 

t 

JMP REWIND 

+ 4 

jtiP UNLOAD 

+ 5 

«MP SKIP? 


At DGNOTH the tape motion indicator is cleared and exit is made to 
TP6. 

At BSPR the control function to select a backspace and interrupt is 
placed in the accumulator and control is given to TMP1A. 

At MARKEF the control function to select a write or file mark and 

interrupt is placed in the accumulator and control is given to TPM1. 

At REWIND the control function to select a rewind and interrupt is 

placed in the accumulator and control is given to TPM1A. 

At UNLOAD, WORD 11 for this logical unit is set to zero to force 
DONOTH to be processed as the next parameter. This will terminate 
this request as the tape unit will require manual intervention by the 
operator before it may again be addressed. The control function 
to select a rewind and unload is placed in the accumulator and 
control is given to TPH1. 

At SKIPF a non stop read is performed and at each end of operation 
status is checked for end of file and end of tape. When either is 
detected control is given back to TPMCTL to process the next para- 
meter. 

At TPM1A status is checked to see if tape is positioned at load point 
If it is, control is given back to TPMCTL to process the next para- 
meter thus treating the current parameter as a no operation. If the 
unit is not at load point, control is given to TPM1. 

At TPM1 the function in the accumulator is issued to the tape unit 
and if interrupt was not selected, control is given to TPM2. If 
interrupt was selected, this unit is set to busy (bit 15=1), the 
"I" register (the logical unit number) is saved in SAVEI and exit 
is made to the dispatcher. 

At TPM2 the subroutine CKEOP is entered to check for end of opera- 
tion. If no end of operation, the unit is checked for ready. If 
ready control is returned to TPM2. If not ready it is assumed that 
the last operation performed was an unload* and the CKEOP 
routine is re-entered to EOP to put status 
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into WORD 12 for this logical unit. EOP is also used when an end 
of operation was encountered and after status has been placed in 
WORD 12^‘contro 1 is returned to the end of operation line in the call 
to CKEOP where control is given back to TPMCTL to process the next 
parameter. 

At end of operation interrupt time the external interrupt processor 
(EPROC) gets the interrupt time address and enters TAPEC where the 
logical unit from SAVEI is restored in the t! I n register, this unit 
is set not busy, a function code to clear the interrupt is placed 
in the accumulator and control is given to TPFIB. 

CYCLE is entered at { the completion of each request. It examines 
(via thread in WORD 17) all the tapes connected to the controller. 

If it finds one that needs service, the PHYSTD location for that 
tape unit is put in "I" and a request processed for it. In this 
way, the tapes are activated in a comutative manner until all requests 
to all units have been processed. When this occurs, exit will be 
made to the dispatcher. 

S3. S T14 - TAPE MOTION CONTROL REQUEST PROCESSOR 

This request processor adjusts return address for direct calls. 

T 3 ^ * 

When the above is completed, TAPE exits to entry point ^SAVLLP in 
the Read/Write Request Processor where threading 
and driver scheduling take place. All legality checking for un- 
protected requests is done in the Protect Processor 
It is assumed that protected requests do not require legality check- 
ing. 

53. L RWBA - READ AND WRITE IN BINARY OR ASCII MODE 

7 

Upon entry to RWBA the contents of WORD 7 * for this logical unit 
are stored in local storage EQTAB with bit 1-0 set to zero. The 
first word address is stored in CORE and the last word add ess + 1 
(CORE plus the requested number of words) is stored in las f . If 
this is a write request control is given to WBA1. If not he function 
to set read motion is issued. Each character is then inpui to the 
A register and packed three to a word drop the two low order bits 
of the last character. Partial words are saved in TEMP until three 
characters have been assembled at which time TEMP is stored in the 
address specified by the contents of CORE. CORE is then increased 
by one and control is returned to input three more characters until 
CORE and LAST become equal at which time a tight read loop is 
entered until there are no more characters to read. No more char- 
acters are transferred to the requestor. At end of operation if 
three characters have not been assembled into TEMP they ar left 
justified and stored in the address specified in CORE with the lower 
order unfilled bits set to zero unless CORE and LAST are equal. 
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If CORE and LAST are equal nothing is transferred to the requestor. 
In either case the Q register is set to zero for the error recovery 
code and at RBA8 parity and lost data errors are checked for. If 
an error exists and the external address of the error recovery 
package (RECOVR) is equal to 7FFF-. the routine is not resident, 

CORE is loaded into the A register and LAST into Q and control is 
given to URECOV. If the external is patched RECOVR is entered* If 
RECOVR returns to this point CORE and LAST are put in A and Q and 
control is given to URECOV. 

At WBA1 the unit is checked to see if it is write enabled. If it is 
not, CORE and LAST are placed in A and Q and control is given to 
URECOV. If it is write enabled write motion is initiated and the 
word at the location specified in CORE is placed in the A register. 
Three shift left 6 and output instructions are performed on the A 
register. CORE is incremented by one and control is given back to 
WBA to get the next word until CORE and LAST are equal. When they 
are equal the subroutine CKEOP is entered and looped on until end 
of operation comes in. When this happens the error recovery code 
1 is placed in Q and control is given to RBA8 to check parity and 
^ lost data. 

53.b.l ASCII/BCD CONVERSION TABLE 
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53.7 



the local storage EQTAB with bits 1-0 set to zero. The first word 
address -1 from the request is placed in CORE and the LAST word 
address (CORE plus the number of words requested) in LAST. Lf this 
is a write request, control is given to FRWA1. If not, read motion 
is initiated at FRDA6. At FRDA the first character is inputted to 
A and placed in Q to use as an ordinal to the conversion tables. 

The upper 8 bits of the table entry at TABLE + the value in Q is 

placed in the lower 8 bits of TEMP and CORE is incremented by one. 

The difference between CORE and LAST is stored in ENDCK and the second 
character is inputted and converted in the same fashion as the first. 
The character in TEMP and this character are packed into one word 
and stored in the location specified by the contents of CORE. If 
ENDCK is not zero control is given back to FRDA. If it is zero, 
a tight input loop is entered to the rest of the record but no more 
words are transferred to the requestor. In any case, when reading 
finally terminates on end of operation if two characters have not 
been read but at least one has the character is left justified and 
the lower set to FF.,. CORE and LAST are both incremented by one, 

Q is set to 2 for the error recovery code and at FRDA5 an end of file 
is checked for. If an end of file has been read control is given to 

FRDA 7 where CORE is placed in A, LAST is placed in Q and exit is 

made to NORMRT. If no end of file, parity and lost data are checked. 

If no parity or lost data errors exist control is given to FRDA7. If 
an error exists to the external for RECOVR is checked for 7FFF 
(unpatched). If unpatched control is given to URE. If patched the 
routine exits to RECOVR. If RECOVR returns control to URE, CORE 
and LAST are placed in A and the routine exits to URECOV. 
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At FWRA1 the unit is checked for a write enable ring. If it is not 
write enabled control is given to URE. If it is, write motion is 
initiated and CORE and LAST are both incremented by one. At FWRA 
the first character or upper half of the word at the location speci- 
fied by the contents of CORE is placed in Q with the two highest 
order bits set to zero and it is used as an ordinal to the conver- 
sion table the same as in a read operation. On a write, however, the 
lower half of the table entry contains the desired conversion 
character. This character is then outputted and the next character 
is picked up and processed in the same manner. Wlmen two characters 
have been output CORE is incremented by one and control is given 
back to FWRA for the next character until CORE and LAST become equal. 
At that time the subroutine CKEOP is looped on until end of opera- 
tion. At end of operation the error recovery code of 3 is placed 
in Q and control is given to FRDA5 to check parity, etc. 

53 . a FRWB - FORMAT READ AND WRITE IN BINARY MODE 

Upon entry to FRWB the contents of WORD 8 for this logical unit are 
stored in local storage EQTAB with bits 1-0 set to zero. The first 
word address is stored in CORE and the last word address + 1 
(CORE + number of words requested) is stored in LAST. If this is 
a write request control is given to FWRB1. If it is not read motion 
is initiated at FRDB1. At FRDB is a chain of eight input sequences. 

Every eight characters read will form (3) 1700 words. As sixteen 
bits are read they are stored, CORE is incremented by one and checked 
for equality with LAST. When they are equal control is given to 
SPIN where a tight read loop reads to the end of operation without 
transferring any characters to the requestor. When end of operation 
occurs and less than sixteen bits has been read to fill the current 
word, the data is left justified with the unfilled lower order bits 
set to zero and stored in the address specified by CORE. At the 
end of operation the error recovery code 4 is placed in Q and if no 
file mark has been read parity and lost data are checked at PARCK. 

If a file mark was read or no error was detected control is given 
to FWB7 where CORE is placed in A and LAST in Q and the routine 
exits to NORMRT. If an error exists the external reference to RECOVR 
is checked for 7FFF , (unpathced). If it is unpatched control is 
given to FWB3* If it is patched the routine exits to the error 
recovery package RECOVR. If RECOVR returns control to this point 
control is at FWB3 and CORE and LAST are placed in A and Q and the 
routine exits to URECOV. 

At FWRB1 the tape is checked for a write enable ring. If none 
exists control is given to FWB3. If a ring is present write motion 
is initiated and the reverse unpacking of the data at the address 
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specified by the contents of CORE is performed with a series of eight 
output sequences. Each six bits unpacked starting from bit 15 of 
the first word and working toward bit 0 of the last word is outputted 
as a character on tape. If the output sequence ends (i.e., CORE 
equals LAST) and a full six bits is not left the lower order bit 
of the character are set to zero. In any event when CORE is equal 
to LAST the record has been transmitted and the subroutine CKEOP 
is looped on until end of operation. At end of operation, the 
error recovery code 5 is placed in Q and control is given to 
PARCK. 

53. 1 RECOVR - THE ERROR RECOVERY PACKAGE 

This routine may be replaced at the users option. Its entry point 
is labeled RECOVR. It is return jumped to with an error recovery 
code in Q (range is 0-5 with even numbers representing reads and 
odd numbers representing writes). 

Upon entry to RECOVR the error recovery code is divided by 2 and 
saved in RCODE. If it was odd the routine goes to WRETRY. If it 
was even control is given to ODD. At ODD if RETRY is not equal 
to three it is incremented by one at PI, the tape unit is backspaced 
one record and control is given to XIT. If it is equal to three, 
control is given to CLEAN where RETRY2 is checked. If RETRY2 
is equal to four the routine exits back to the calling routine through 
its entry point. If RETRY2 is not equal to four control is given to 
CLEAN2. At CLEAN2, RETRY2 is incremented by one, ENDOP is set to 
zero and up to three backspaces are issued. If load point is sensed 
after any of the backspaces, no more backspaces are done. A count 
of the number of extra backspaces actually executed is kept in 
ENDOP. A non stop read is done and continues until the number of 
end operations specified in ENDOP have been read. At this point the 
error record is the next record to be read and control is given to 
XIT. 





At XIT the routine determines which routine to re-enter by using the 
value in RCODE as an ordinal to a table of addresses. The format 
of the table is: 


TBL 4* 0 
+ 1 
+ 2 

At WRETRY if RETRY is not equal to two, control is given to Rl. If 
it is equal to two control is given to Wl. At W1 if RETRY2 is equal 
to two control is given to W6. If it is less than two control is 
given to wj and if it is greater than two control is returned to the 
calling routine through the entry point of RECOVR. 
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At W3 the tape unit is backspaced and at least half of the record is 
erased. The number of erases to perform is calculated by the formula 


(N-l)C 

12D 


4- 1 where N is the number of computer words to be written. 


C is the number of characters per computer word and D is the density 
the data is to be recorded in. The erases are performed by writing 
a file mark and backspacing. When the computed number of erases 
have been performed control is given to W6. 


At W6 zero is stored in RETRY and control is given to XIT. 


CA 1 38-1 



1 


2 


4 


5 


B 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE | | 

FLOWCHART [^] 

DECISION TABLE | | 

OTHER □ 

DO c C L U *r T Jinns m t a v c p h e / 7* a 


REV 

APPROVED 

DATE 

ooc r^ NT / 73 // C?o / lyZ'oetL 

PROJECT MGR. 




0 rs! page / oF^f 

PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE 

TASK NAME 





A A 1385 (F 


-Y C A 127-1 ) 


-O 


MftR 5 1971 53 • 1,1 







CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 
FLOWCHART | | 

DECISION TABLE f~| 
OTHER □ 


DOCUMENT 
C LASS 

I/n, S 

m /v c p h e - /7^a 


DOCUMENT 

TITLE 

J 73J/&C y 


PROJECT MGR. 

OrOScJ {* 

MBBSBSSi 

PROJECT NAME 

NUMBER 


ISSUE 

DATE 

TASK NO. 




DRAWN BY 


D 


TASK NAME 


4 


5 



MAR 5 1971 S3, is 

















5 



MAR 51971 















//s \ 
*THet e a 

Xse.ivhT't 


ffcK OP 

8 ,r 


CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 


Status 

& > 



P r oR.mATr€s> 


tMrj 



DOCUMENT 
C LASS 


Z.s\S 


M t A v C p H e /7s < 5 









APPROVED I DATE 


SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



PROJECT MGR. 


PROJECT NAME 


TASK NAME 



A A 1 3 8 5 (FORMERLY CA127-1) 


















53.1 
























2 



A A 1 385 (FORMERLY CA 127 - 1 ) 



3 

zo 


tn 


to 


In 

feJ 

fer* 


NAME 




























S3. 3. 































1 


2 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE | [ 

FLOWCHART [[] 

DECISION TABLE □ 

OTHER Q 

DO c C L °r s E s NT Z>^S M T A y C p H E ' /7oo 


doc t^ t / 73// 

PROJECT 


PROJECT 

ISSUE T"" 

number date 

TASK NO 


TASK NAI 


A A 1 3 8 5 (FORMERLY CA(?.7-11 


4 


5 
























5 



AA 1385 IP' 


MAR 51971 












2 



4 


5 


F RujA 


\ 

■ 

Co-vr 
Co ro »/<cC r 
Cooe 5-gqrte 

\ 

L 

Fw4 - / 
Co HE 

s 

/ 

Lvq 4- 1 

-> Lf\$r 







s /RMO- 





Ceoecr 



(JS>Z 

QUPttLfihjVUZj 

To -r^Sce 



%_F£M3 


tNf*v 

A 

dHAfcfltred 


J 

r 

da/n/SiAje 
($ h >/1 £AcTC£& 

> 

f 

(*) 

Co 


s 


/ A/C Cj£.fn Cast 
&0(2-£ 

Uo c fiir'i orO 





0°CUMEN T j-^C, 

m t a v c p h e 

f-fCcxjft 

RE\ 

APPROVED 

DATE 

ooc tVt m u e e nt \l3iJ L q 1 

J)/QiOC'Z> 

PROJECT MGR 




(JOlSoEEff^b 

PAGE /PoF 

PROJECT NAME 




NUMBER 

ISSUE C 7 

DATE 

TASK NO. 




DRAWN BY 

DATE 

TASK NAME 





TO 


Cl 

to 


CONTROL DAT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART | | 

DECISION TABLE | | 

OTHER | | 


A A 1 3 8 5 (FORMERLY CA127-1I 


TS-E 5 






4 



A A 13 85 C A 1 2 7- 1 ) f \ 

V V vy V y 


aa-Es 








2 


4 


5 



1 




A 1 385 (FORMERLY C A 1 27- 


MAR 5 1971 53.23 





















CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART Q 

DECISION TABLE □ 

OTHER | | 


DOCUMENT 
C LASS 


X'n s 


: p h e 1/06 



NUMBER 


PROJECT MGR- 


PROJECT NAME 


DRAWN BY 


D 


E 


TASK NAME 



a°Es 
























2 


4 


5 



MAR 5 1971 si.ss 










2 


( &<CL£CT 

I'XjQr/ofV 



CKdcjsj \ 


F£h 


\ jrs/p^r 
A 

Qf) AC fierce/ 

U <3.rQ / 


£w,ft cm A«- 
CCi=r /o 
^rs ^TCtnP 


CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

□ 

DECISION TABLE 

□ 

OTHER 

□ 



PROJECT MGR. 


PROJECT NAME 


TASK NO. 


TASK NAME 



S3. 5b 























DOCUMENT vv« C 

CLASS /n 

t A v C pe / ^ <7 


REV 

approved 

DATE 

ooc tVt m uS nt /?5V^/ 


PROJECT MGR. 





PAGE^^F 

PROJECT NAME 




NUMBER 

ISSUE 

DATE 

TASK NO. 




DRAWN BY 

DATE 

TASK NAME 





CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART | | 

DECISION TABLE □ 

OTHER □ 


Cn 

UJ 

• 

m 


A A 1 385 (FORMERLY C A 1 27-1) 


MAR S 1971 






4 


C 


D 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE | | 

FLOWCHART | | 

DECISION TABLE □ 

OTHER □ 

DOCUMENT MACH. 

CLASS TYPE 

FltJb 

REV 

APPROVED 

DATE 

DOCUMENT 

TITLE 

PROJECT MGR. 




page^S'f^^ 

PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE 

TASK NAME 





A A 1 3 85 (FORMEiy^Y CA127-1) 




MAR 5 IS71 





1 


2 


4 


5 



A A 1 3 85 (FORMERLY C A ? 2 7 - 1 


WES 




















5 



vSet-ecr 

kffcrre 

Averse 


Goee 


A' 

$Hi?r L 
<S |TS 


<& 


0 UT~f > i>T 

/ * 

(ZAMficTeti 



i *T£Jl 


£bP ? 


V?' C€Pr 
l 5 A<F-t ^ 


/ 6 gti°vi 

! A 

CHUficTez,, 


V &J 3 -. 

'CKsrA r\ 



I'NCp.GnsttJ r 

Co&e 

ezs 


-C/isr 


C?er -4 


d/Coc€. 

3 IXS 



[ 6 l->o£j^ 


Pack r ^ 

VV 10 -tH 

V /Sfr^ 



r__J^ 

C/<sr/?r\ 


CONTROL DATACORPORATION 


SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

□ 

DECISION TABLE 

□ 

OTHER 

□ 


DOCUMENT -7- *»» r 

C LASS _1_ /'LQ 

DOCUMENT n6t J (a0i 

UAhJffi ££-&(> 

NUMBER 


m t a y c p h e / 7 go F£u->& 

Z*. </€.<*- I PROJECT MGR. 


APPROVED 


e/Pof PROJECT NAME 


ISSUE / 
DATE 


TASK NO. 
TASK NAME 


A A 1 3 85 (FORMERLY CA127-1) 


MAR 5 1971 S3. 31 
























2 



CONTROL DATACORPORATION 

SOFTWARF nOriIMFMT 

DOL jmen t 

C LASS 

£<*\ £ 

. M r %%\!7oo 

FVCou a> 

^ AMP! f rnnp 

□ 

□ 

DOCUMENT 

TITLE 

JMUlIl 

■i)'?. 1 0 £/€_, 

PROJECT MGR. 

FLOWCHART 


PAGE^OF 

PROJECT NAME 

DECISION TABLE 

□ 

NUMBER 


ISSUE 

DATE 

TASK NO. 

OTHER 


DRAWN BY 


DATE 

TASK NAME 



1 

APPROVED 

DATE 1 



53.33 























tri 

UJ 

• 

IxJ 

4? 


O 


-Y C A 127-1 ) 
















2 


4 


5 


a, 



± 


k! o 


SisSP 


k=- 




A/o 

C<€0p \ 





N 

V 

r 

(JO (l 

XioCfte^-se 

Ei\)b0f 

i 

> 


&& Sf 


K 

VCZfl WO 


CKttfp \eo^ 



Xi6Q.(Ce»nCwT j 

£^fc*0P 



\/ £.36 


^b£(!^.e/y\ewr| 
£’A/'b^>P 


A'xr 


Pick. 

i iP 

rfiBce 

(N&i 


fltert/i 

yC/>a* 


g.TlJtV TO 


D 


-±J± 
^6 
/? 

!G# Averse. , 




o* 


/\JO 

Ear 


r 


Si 

31 

_ l 


cKe0p 



© 


CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART Q] (J 

DECISION TABLE □ 

OTHER Q 

DO c C l T, E s NT x^lS 

■■■■■■■vsfsnFziiCT 

REV 

APPROVED 

DATE 

doc tVt m u e e nt / D/e < 

PROJECT MGR. 




ti 8uF<^e(Lex± PAOE^F^f 

PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




t DRAWN BY DATE 

TASK NAME 





In 

UJ 

• 

UJ 

til 


A A 1 3 8 5 (FORMERLY CA127-1 


MAR 5 1971 












K€n?fj. 

- O 


AjJ 


/SKsp \ 


AM6S \ 




A A 1 385 |FO 



CONTROL DAT ACORPORATION T DOCUMENT 
SOFTWARE DOCUMENT * class 


SAMPLE CODE Q 

FLOWCHART | | 

DECISION TABLE | | 

OTHER □ 


•1E*ES 























2 


4 


5 




A 


B 


C 


D 



CONTROL DAT ACORPORATfON 
SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ (] 

DECISION TABLE | | 

OTHER □ 

DOCUMENT -T/vx C MACH. J ^7 . ± 

CLASS O TYPE / / @ 0 

C£c<zfi/r 

REV 

APPROVED 

DATE 


PROJECT MGR. 





PROJECT NAME 




issue y 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE 

TASK NAME 





A A 1 3 8 5 (FORMERLY CA127-1 


MAR S 1971 S3. a? 











CONTROL DATA CORPORATION I DOCUMENT -r M r MACH. / ' 

CAtTuiAor n^nucr C LASS J_/TVO TYPE / / 

SOFTWARE DOCUMENT / 

SAMPLE CODE Q — 11^ IJSlJMi 

FLOWCHART □ I'fl/OtJ F AwJO & 0 pa gepQ o 

DECISION TABLE | | 

OTHER □ 


DRAWN BY 


TASK NAME 





















A A 1 3 8 5 (FORMERLY CA127-1) 



bE’ES 









SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 


TASK NAME 


A A 1385 (FORMERLY C A 127-1) 

















uj6A I 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE | | 

FLOWCHART □ 

DECISION TABLE Q 

OTHER | | 


DOCUMENT 
C LASS 




MACH. J 

type/ 



DRAWN BY 


DATE 


A A 1 3 8 5 (FORMERLY C A 1 2 7-1 ) 


4 


5 

























CONTROL DATA CORPORATION 
Arden Hills Development DIVISION 


MAR 5 1371 


DOCUMENT CLASS 

PRODUCT NAME 

PRODUCT MODEL NO. 


IMS 

1700 Operating System 
EODbMB.O 


PAGE NO. 


53.43 


MACHINE SERIES 


T7UIT 


53.10 INTRODUCTION 


This tape driver is composed of six modules which may be 
combined in various ways to make up a tape driver. The 
modules are: 


TAPEDR - The traffic director and tape motion control 
processor 

T14 - The tape motion control request processor. 

RWBA - Processes the READ and WRITE requests in either 
binary or ASCII mode. 

FRWA - Processes the FREAD and F WRITE requests in ASCII 
.mode . 

FRWB - Processes the FREAD and F WRITE requests in binary 
mode. 


RECOVR - Error recovery routine 


TAPEDR must always be included as all requests pass through 
it. If density changes and/or tape motion control is desired 
T14 must also be included. If T14 is not included-i a user call 
will result in an illegal request diagnostic and job termin- 
ation. In order to perform a read or write operation on 
magnetic tape any combination of RWBAi FRWA and FRWB routines 
must be included in the tape driver. A request for one of 
these routines which is not in resident will result in an 
illegal request diagnostic and job termination- RECOVR may 
be included in the driver or replaced or omitted at the user-’s 
option. If an error is detected and this routine is not in 
resident! the operator will be notified of an unrecoverable 
error {Alternate Device Handler! and given an opportunity 
to take action. 

Ilodule Entry Points Externals 


TAPDRB TAPDRB FRWAB 

TAPCB FRWBB 

TAPHB RWBAB 

URECOVB NAKEd 

NRNRTB BUFALC 

RTRYB ALTDEV 

RTRY2B 
DYNSTB , 
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Module Entry Points Externals 


Rlil BAB 
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53.12 Physical Device Tables 

Each tape unit in the system will have a PHYSTB {physical 
equipment table} entry as follows: 



Driver pri- 
ority level 


Controller 
equipment 
number 
l=read only 
2=write only 
3=read/ write 


Driver 

length 

Unit number 
dialed on tape 
Initial setting 
to 55b BPI 
Initial setting 
binary mode 
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WORD 17 contains the location of WORD 1 of the PHYSTB 
entry of another unit connected to the same buffered data 
channel. Through this wordi all the tape units and other 
perfericals connected to a Buffered Data channel are 
threaded together in a circular manner. 

If only one tape unit is connected to a controller! word 
17 must contain the address of its own PHYSTB entry. 

WORD lfl is a temporary storage cell used by the drive 
to store the tape motion control function or an error 
code flag. 

53.13 Assumptions 

1. The Buffered Tape Driver may be interrupted to process 
higher priority drivers and processes. 

2. Only one device on a buffered data channel may be 
serviced at a time. 

3. All callers must berat lower priority levels. ( r '") 

53. 14 TAPDRB Description 

This module processes all the requests to the tape driver 
and sends them to the proper routine. It also contains 
the tape motion control request routine and several subrou- 
tines used by all portions of the driver* 
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53.14.1 INTERNAL DESCRIPTION 

On entry, the Driver checks to see if the Buffered Channel is busy. If 
so, exit is made to the dispatcher as the driver will pick up the current 
request later on. The Driver then checks all other units connected to 
channel for a busy unit. If so, exit is made to the dispatcher. If 
no requests are in progress and the channel is not busy, the driver 
waits till the controller becomes inactive and then proceeds with 
r equest processing. 

Two types of requests are processed, tape motion and data transfer. 
Suitable table setups are made for each type. In addition for data 
transfers, a check is made to confirm that block length is greater 
than 9 words. Requests for blocks of less than 9 words cause job 
termination. When table setups are complete, the unit is connected, 
mode and density selected. The requests are then passed to a 
corresponding processing routine. In the case of data transfers, if 
the corresponding processing routine is not present, job termination 
results. 

53.14.2 USE OF INTERRUPTS 

Interrupts are used to signal completion of the following tape motion 
operations : 

1. Backspace record 

2. Rewind 

3. Mark end of file 

4. Skip one file forward 

While the above operations are in progress the driver has relinquished 
control. All other operations require that the driver retain control 
until they are completed. A partial exception is the rewind-unload 
request. The Driver initiates a rewind, upon regaining control, it 
initiates an unload and exits from Driver. 

S3. *4.3 TPMCTL 

At TPMCTL a parameter is extracted from WORD 15 and placed in the Q 
register to use as an ordinal to the request table. The remaining 
parameters are restored temporarily in WORD 16. Using the ordinal 
in Q the proper routine address is picked up and placed in Q and a 
jump is made to the effective address formed by the value in Q plus 
one. The table format is: 
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TPMTBL + 0 
+ 1 
+ 2 
+ 3 
+ 4 
+ 5 

At TPM1A status is checked to see if tape is positioned at load 
point. If it is, control is given back to TPMCTL to process the 
next parameter thus treating the current parameter as a no operation. 
If the unit is not at load point, control is given to TPM1. 

At TPM1 the function in the accumulator is issued to the tape unit 
and if interrupt was not selected, control is given to TPMCTL. If 
interrupt was selected, the l? I n register (the logical unit number) 
is saved in SAVEI and exit is made to the dispatcher. 

At DONOTH (Do Nothing) the current status is taken and stored in 
WORD 13 of the PHYSTB, and exit is made to CONTIU. 

At BSPR the control function to select a backspace and interrupt is 
placed in the accumulator and control is given to TMP1A. 

At MARKEF the control function to select a write or file mark and 

interrupt is placed in the accumulator and control is given to TPM1. 

At REWIND the control function to select a rewind and interrupt is 

placed in the accumulator and control is given to TPM1A. 

At UNLOAD, WORD 16 for this logical unit is set to zero to force 
DONOTH to be processed as the next parameter if the tape unit is at 
the load point. If not at the load point, the REWIND control function 
is selected, with unload being set up as the next function to be 
processed. Unload will terminate this request as the tape unit 
will require namual intervention by the operator before it may again 
be addressed. 

At SKIPF a non stop read is performed and at each end of operation, 
status is checked for end of file and end of tape. When either is 
detected control is given back to TPMCTL to process the next para- 
meter. 

Upon entrance from an end of operation interrupt TAPEC is entered and 
the logical unit from SAVEI is restored in the "I tT register. A 


ADC 

DONOTH- 1 

ADC 

BSPR- 1 

ADC 

% MARKEF- 1 

ADC 

REWIND- 1 

ADC 

UNLOAD- 1 

ADC 

SKIPF- 1 
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function code to clear the interrupt is placed in the accumulator 
and control is given to TPM1. 

CONTIU is entered at the completion of each request. The V indicator 
of WORD 10 bits 13 to 15 are computed. If an error was detected 
the Alternate Device Handler is scheduled with Q containing the error 
code and logical unit number, control is given to SEARCH. 

SEARCH examines all units connected to the Buffered Channel (via 
thread in WORD 15) it sees if one needs service. If it finds one, 
the PHYSTD location for the unit is put in M Q n and the DRIVER is 
scheduled. The FOVER flag is zeroed and control is passed to the 
Dispatcher. In this way, the tapes are activated in a commutative 
manner until all requests to all units have been processed. When 
/ this occurs, exit will be made to the dispatcher. 

S3. IS T14 - TAPE MOTION CONTROL REQUEST PROCESSOR 

This request processor adjusts return address for direct calls. 

When the above is completed, T14 exits to entry point n SAVLU n in 
the Read /Write Request Processor (E00610A0060S) where threading 
and driver scheduling take place. All legality checking for un- 
protected requests is done in the Protect Processor (E00610A0160S). 

It is assumed that protected requests do not require legality 
checking. 

S3 mLL RWBA - READ AND WRITE IN BINARY OR ASCII MODE 


Upon entry to RWBA the contents of WORD 8 for this logical unit are 
stored in local storage EQTAB with bits 1-0 set to zero. The first 
word address is stored in CORE and the last word address + 1 is stored 
in LAST. X in TAPEC is modified so that control will be passed to 
INTRW at interrupt time. The Buffer first word address is stored into 
HOLD with the last word address + 1 stored in Buffer first word loca- 
tion. If this is a write request, control is given to ENRING. If not, 
the Read motion and End of Operation interrupt function is given. 

A buffered input operation will then be initiated. Control will be 
passed to TPEBSY which saves I in SAVEI and jumps to DYNSTA. Interrupt 
will be enabled while Initializing a buffered input or output. 

At ENRING the unit is checked to see if it is write enabled. If it 
is not, core and LAST are placed in A and Q and control is given to 
URECOV. If it is write enabled, the data is packed into the buffer 
prior to a buffered write. 

Upon receiving an End of operation on a buffered read or write, the 
driver will be reentered at INTRW. SAVEI is restored in I and the 
next storing address is requested. The previous interrupt condition 
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is cleared ami the status is updated* If an end of file was read, 
$3CFQ stored in first word of user's buffer and control is passed to 
NORMRT, If a parity error was detected, control exits to RCVR, If 
a write operation is being processed control is passed to NORMRT, 
Otherwise the data buffer is unpacked and placed in users buffers 
control is then passed to NORMRT. RCVR checks to see if the error 
recovery program RECOVR is present, if not present, control is 
passed to URIGQV, If present control is return jumped to RECOVR. 
d. : a I If the error could not be recovered from, URECOV is entered* 

S3*lb*l PACKING AND UNPACKING READ/WRITE REQUESTS 


Each 1700 core location will be written or read as three 6 bit 
characters. Two trailing ones will be added onto the low order 
bits of each word on a write and stripped off as the data is read; 
i.e., bits 15** 10 will be the first character written, bits 9*4 
will be the second and bits 3*0 plus two low order ones will be the 
third. On reading the tapes, the first characters will occupy bits 
15*10, the second will occupy hits 9-4 and the third will have its 
two low order bits stripped off and will occupy bits 3*0, The 
mode may be either binary or ASCII but will only result in the binary 
recording (odd parity) or BCD recording (even parity) respectively 
of the data on tape. No conversions take place. Writing seres in 
even parity will cause difficulty in the controller and should be 
j/ ' ‘ ( avoided* 


53.17 FRWA - FORMAT READ AND WRITE IN ASCII MODE 

The FRWA program is set up the same as RWBA except for packing and 
, , i unpacking (see 5*1)* 

53.17.1 PACKING AND UNPACKING FORMATTED READ/WRITE REQUESTS 


Formatted reads or writes in ASCII mode will assume ASCII code in 
1700 core and external ECO (six bits plus parity) recorded in BCD 
(even parity) mode on tape* The conversion takes place by direct 
t y i, table look up (see 5.2). 

53.17.2 ASCII /BCD CONVERSION TABLE 


TABLE + 00 

2b ',^4 

IF 

+ 01 

31 

31 

+ 02 

32 

32 

+ 03 

33 

33 

+ 04 

34 

34 

+ 05 

35 

35 


(f '> \ 
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TABLE +06 

36 

36 

4 

07 

37 

37 

4 

08 

38 

38 

4 

09 

39 

39 

4 

0A 

30 

21 

4 

OB 

3D 

22 

4 

OC 

27 

23 

4 

OD 

3A +A 

24 

4 

OE 

3E 

25 

+ 

OF 

EE 

26 

4 

10 

20 

27 

4 

11 

2F 

28 

4 

12 

53 

29 

4 

13 

54 

12 

+ 

14 

55 

13 

4 

15 

56 

14 

+ 

16 

57 

15 

4 

17 

58 

16 

4 

18 

59 

17 

4 - 

19 

5A 

18 

4 

1A 

-5F-- 

19 

4 

IB 

2C 

3D 

4 

1C 

28 

IE 

4 

ID 

E5 

ED 

4 

IE 

SC 

SF 

4 

IF 

MD y - 

1A 

4 

20 

2D 

10 

4 

21 

4A 

2A 

4 

22 

4B 

OF 

4 

23 

4C 

3F 

4 

24 

4D 

a B 

4 

25 

4E 

ID 

4 

26 

4F 

ID 
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The FRWB program is set tip the same as RWBA except for packing and 
unpacking ( see S 3 • 1 fi • A J 

PACKING AND UNPACKING FORMATTED READ/WRITE REQUESTS 


Fcrmeteed reeds er twifes in binary mode will assume binary code in 
1700 cert itti binary (even parity) mode on tape. On reads Sach six 
bit character received from the tape unit is packed left justified 
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(is starting at bit 14 of word 1 and moving towards 0 of the last 
word). On writes the procedure is the same with every bit working 
from left to right and top to bottom, being written on tape con- 
tiguously. If a write or a read operation does not terminate on an 
exact word, the last character written on tape or read from tape 
is padded with zeros. 

/ 

S3.n RECOVR - THE ERROR RECOVERY PACKAGE 


This routine may be replaced at the users option. Its entry point 
is labeled RECOVR. It is return jumped to with Q containing pointer 
to routine entered from. 


q 

Routine 

0 

RWBA 

i 

FRWA 

2 

FRWB 


Upon entry to RECOVR the error recovery code in Q is saved in RCODE. 
If the error was detected on a read and RETRY is not equal to three, 
control is given to Rl. R1 increases RETRY and the record is back- 
spaced and control is given to XIT, which causes the record to be 
read again. If RETRY is equal to three, control is given to CLEAN 
where RETRY2 is checked. If RETRY2 is equal to four the routine 
exits back to the calling routine through its entry point. 

If RETRY2 is not equal to four control is given to CLEAN2. At 
CLEAN2, RETRY2 is incremented by one, ENDOP is set to zero and up 
to three backspaces are issued. If load point is sensed after any 
of the backspaces, no more backspaces are done. A count of the 
number of extra backspaces actually executed is kept in ENDOP. A non 
stop read is done and continues until the number of end operations 
specified in ENDOP have been read. At this point the error record is 
the next record to be read and control is given to XIT. 

At XIT the routine determines which routine to re-enter by using the 
value in RCODE as an ordinal to a table or address. The format of 
the table is: 


TBL 4- 

0 

ADC 

RWBA 

+ 

1 

ADC 

FRWA 

+ 

2 

ADC 

FRWB 
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If the error was detected on a write and RETRY is not equal to 
two* control is given to Rl. 


If it is equal to two control is given to Wl. At W1 if RETRY2 is 
equal to two, contro 1 is given to W6. If it is less than two, control 
is given to W3 and if it is greater than two, control is returned 
to the calling routine through the entry point of RECOVR. 


At W3 the tape unit is backspaced and at least half of the record is 
erased* The number of erases performed is calculated by the 

formula i where N is the number of computer words to be 

written, C is the number of characters per car put er word and D is 
the density the data is to be recorded in. The erases are performed 
by writing a file mark and backspacing. When the computed number 
or erases have been performed control is given to W6. 

At W6, zero is stored in RETRY and control is given to XIT. 
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54.0 PROGRAM NAME 

lTBS-bDfi/bOT Magnetic Tape Driver -CDR1732} 

54.1 FUNCTION 

DR1732 initiates! monitors and controls all operations 
on any combination of up to eight bOfl and/or bCH magnetic 
tape drivers. These operations are the end result of 
monitor requests on magnetic tape drive logical units 
with a request code defined as follows: 

1 READ 

2 WRITE 
4 FREAD 
b FWRITE 

14 MOTION 

DR1732 utilizes those features of the 1732 Controller 
which will promote maximum throughput. Non-stop mode 
of operations on reads t writes and tape motion requests 
are performed when appropriate. 

54.2 ENTRY POINT NAMES 

The following entry points are declared if the driver is 
core resident. 

TAPINT driver initiator 
TAPCON driver continuator 
TPHANG driver I/O hangup 

There are no entry points declared if the driver is mass 
memory resident. The above entry points are then declared 
in the core resident control module-i DBLDRV. 

54.3 EXTERNALS and DESCRIPTION 

ALTDEV Alternate Device Nandler 
LOG Log errors on Engineer File 

MAKEfl Set error bits in <2 

When the driver is mass memory resident! the following 
external names are also declared: 

BUFALC Checks the ready/busy status of the 170b 
Buffered Data Channel* 

MAS300 Allow other drivers to use allocatable core 
if DR1732 is not busy. 

ADRINT Core location in DBLDRV that the driver 
stores the address of the Initiator. 
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ADRCON Core location in DBLDRV that the driver stores 
the address of the Continuator. 

ADRHNG Core location in DBLDRV that the driver stores 
the address of the I/O Hangup routine. 


54.4 ENTRY ENTERFACES 

54.4.1 When a magnetic tape request is executed-. DR1735 

is entered via TAPINT. The driver is initialized-, 
validity of the request checked-, equipment 
availability is checked and reserved. The request 
is then initiated. 

54.4.5 When interrupts are received from the 1735 magnetic 
tape controller-. DR1732 is entered through TAPCON. 
The interrupts are checked to determine expectancy. 
If the interrupt was expected*, it is acknowledged -. 
if it was unexpected-, the Ghost Interrupt message 
is sent to the standard comment device* 

54.4.3 Upon I/O or motion control difficulty-. DR173S is 
entered at TPHANG. An error code zero is set 
and control is given to FAILED. 


54.5 EXTERNAL INTERFACES 

54.5*1 When difficulty has been encountered with a physical 
tape device-, a call is made to ALTDEV {Alternate 
Device Handler} to determine whether an alternate 
device has been assigned. 

54.5.2 When errors are encountered-, control is passed to 
LOG to record the difficulty on the engineer file. 

54.5*3 Error status is set in the upper three bits of 
0 via NA K Efl • 

When the driver is mass memory resident-, additional 

externals are declared as follows . 

54.5.4 The BUFALC external routine checks the ready/busy 
status of the 170b Buffered Data Channel and if 
not busy-, a check is made for any stacked requests 
waiting for its use. 

54.5.5 If DR1732 has completed-. MAS300 is scheduled 
to allow other drivers to use its allocatable 
core- 

54. 5. b During initialization of DR1735 the address of 
TAPINT-. TAPCON and TPHANG are set into DBLDRV 
at core locations ADRINT-. ADRCON and ADRHNG 
respectively. 
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S4.b GENERAL PROGRAM INFORMATION 


54-b.l DR1732 is initiated by monitor calls which requests 

magnetic tape operations- The following is an 
example of a READn IdRITEn FREAD or FURITE request. 



RP 

CP 

X 

C 

V 

M 

A 

L 

N 

S 


Request Priotity 

Completion Priority 

Used to determine Ct N and S 

Completion Address 

Error field 

Modei Binary or ASCII 

Determines L 

Logical Unit 

Number of words to transfer 
Starting address 


54. L. 2 The calling sequence for a tape motion request 
is defined as follows: 


IS 14 13 12 

ii 

10 1 A 7 

b 5 

4 3 2 1 0 

RTJ- 




-C$F4} 

Request 

Code 

xl_ 

RP 

I CP 

C 

Thread 

r i m 

A 

1 

L 


pi 


1* L 

P3 

I Unused 


Request Code 

RP 

CP 

X 

C 

M 

A 

L 

P1-. P2 1 P3 


14 

Request Priority 
Completion Priority 

Used to determine actual completion address 

Completion Address 

Modei Binary or ASCII 

Determines L 

Logical unit number 

Tape motion codes 


P codes are scanned from left to right and are defined 
as follows : 
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17D0 


0 {zero} 

1 
5 

3 

4 

5 
b 
7 


Do nothing or request termination- 
Backspace record 
Write file mark 
Rewind 

Rewind and unloadi terminates request 
Skip file forward 
Skip file backward 

Advance record — an added software capability 


The following binary values specify the DENSITY parameters: 

3 Select 300 BPI 

2 Select 55b BPI 

1 Select fiOO BPI 

0 Do nothing 

54. b. 3 for repeated motion requests {up to 40 C I5} and 
select densityi the fifth word of the motion 
requests parameter string appears as follows: 

15 14 13 12 11 10 T A 7 b 5 4 3 2 1 □ 

p r -pi — - r — : n~ 1 

Pi Notion or density code 

N Number of repeated requests 


Interrupts are used on tape motion requests. 

The first zero parameter in P1-P3 or expiration 
of the repetition factor completes the request. 


54. b. 4 Appropriate entries must be made in LOCOREt 
L 0G1A-, L0G1-, L0G2-, NASKT-, DGNTAB and PHYSTB. 

An example of the Physical Device Table {PHYSTB} 



for a 

bOT tape 

drive follows: 

WORD 

EXT 

TAPINT i 

TAPC0N-. TPHANG 

0 TPO 

NUM 

$120X 

X = Driver priority level 

1 

ADC 

TAPINT 

Initiator 

2 

ADC 

TAPCON 

Continuator 

3 

ADC 

TPHANG 

I/O Hangup 

4 

NUN 

-D 

Diagnostic Clock 

5 

NUN 

0 

Logical unit number 

b 

NUN 

□ 

Parameter list pointer 

7 

. NUN 

X 

X Hardware address 

A 

NUN 

X 

X = Equipment class 
Equipment type 
Type of operations 


NUN 

0 

Status word one 

10 

NUN 

□ 

Core storage address 

11 

NUN 

□ 

Last word address +1 

12 

NUN 

0 

Status word 2 
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13 

NUM 

X 

X = Mode of operation 
Unit number 

14 

ADC 

X 

X = Address of next PHYSTB 

15 

NUM 

□ 

Temporary storage 

lb 

NUM 

a 

Temporary storage 

54. b. 5 

Program ■ 

dependant flags and values are as 


BUSY 

LSTPT 

ERRCNT 

ALUCC 


A flag when non-zero indicates the driver 
is currently processing a request. 

The same location as BUSY. The address 
of the Physical Device Table which is 
currently being processed. 

An accumulator which contains the error 
count if any. It is used to determine 
which recovery procedure is to be used. 

Contains the address of the allocatable 
buffer when the buffer is present- Zero 
when not present- 


54.ti.ti DR1732 is coded as a MACRO skeleton. To parameterize 
the driver for a particular configuration! the 
user will prepare a card defining the MACRO 
parameters. This card is to be inserted in the 
source deck of DR1732 before the END card and 
the deck assembled. It should be pointed out 
that the assembly listing will provide only the 
machine code unless the M option is specified. 


The MACRO call card appears as follows: 

TPDRGN Pl-,P2-,P3-,P4-,PS-,Pb-,P7 

Where the formal parameters PI through P7 may have 

the following definitions- 

Pi Defines the residency of the driver — CORE 
for core resident or MASS for mass memory 
resident. If PI is equal to MASSn the core 
resident module! TAPCORi must be loaded 
under the *L portion of the load and DR1732 
loaded under the system name TAPMAS- 

P2 Defines the method of data transfer — BUf for 
buffered transfers using a 170b Buffered Data 
Channel! or UNBUF for unbuffered transfers 
using the A<2 channel- 

P3 Defines the type of tape drives which will be 
in the system. P3 will be bOfli bOTi or BOTH. 
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PM Defines the type of Read/lilrite requests to be 
processed. PM will be FORM when only formatted 
requests are to be processed! REG for regular 
requests only! or BOTH if formatted and 
regular requests are processed. 

PS Defines whether error recovery for parity 
errors will be attempted. If PS is ERRi 
recovery is attempted- If NOERR is specified! 
the error bits are set and the request is 
completed. 

Pb Defines the maximum tape record size for bDB 
units. If blank! Tb words will be assumed. 

P7 Defines the priority level at which the driver 
is to operate! and should be in the range S-1M. 

54.7 DR1735 GENERAL DESIGN 

54.7*1 DR1732 having the capability of being a mass 

memory resident driver is coded in run anywhere 
code* Uhen the driver does reside as a mass 
memory resident routine! sufficient allocatable 
core must be available in which the driver may 
reside or a hangup will occur- The driver! 
either core or mass memory resident makes a space 
request for its buffer. 

54-7.2 The driver is not reentrant- Uhen the initiator 
portion of the driver is enteredi a checked 
is performed to determine whether a request is 
being processed {driver is busy! and if busy! 
an exit is taken to the DISPATCHER. 

54. fl GENERAL PROGRAM LOGIC 

54.6-1 When a request is made to perform a function on 
bOB/bOT magnetic tapes i the initiator portion of 
the driver is entered. The Physical Device Table 
{PHYSTBJ address of the present PHYSTB is contained 
in the <3 register. The priority level is set in 
all driver calls and if mass memory resident! 
the addresses of TAPINTi TAPCON and TPHANG are 
placed in the appropriate locations in DBLDRV. 

If the driver is busy an exit is made to the 
DISPATCHER. Uhen the driver is not busy! the 
error count {ERRCNTI is initialized and unit 
rewind is determined. Uhen the unit is rewinding! 
a check is made for the next PHYSTB ! otherwise a 
check is made to determine if the unit has completed 
rewinding. If it has completed rewinding! the next 
motion code is picked up and an exit is made to 
M0TI0N+2. If still rewinding! FNR is entered 
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to find the next request- Upon return from FNRn 
a check is made to see if the 170b Buffered Controller 
is busy only when the buffered version of the driver 
is being used- The request code is checked! if it 
is a motion request! control is given to MOTIONn 
if not motion! control is given to XFER for data 
transfer- The data transfer is initiated by connect- 
ing to the designated unit! selecting the mode and 
type of operation- If it is a write binary operation 
on a fciCH magnetic tape! the binary data is not 
unpacked. When binary data is written to a bOA 
type unit! all data is unpacked to two six bit 
characters per word- Upon returning from initiating 
the WRITE request n an exit is made to the DISPATCHER. 

A READ request is initialized the same as a WRITE 
only there is no unpacking of data regardless of 
the type of unit- The PACK routine is entered 
after the first READ has been completed and the 
Continuator portion of the driver is entered- 
If any faults are discovered in the request! the 
appropriate code is picked up in the A register and 
control is given to the FAILED routine- 

54- A- 2 When the end of operation interrupt is received! 

the continuator -CTAPCONJ portion of the dtiver is 
entered with the address of the TPO labeled PHYSTB 
in (3 • When the driver is not expecting an interrupt 
{no interrupts pending} a Ghost Interrupt -CGI> 
message is sent to the standard comments device- 
Expected interrupts cause status to be taken on 
the functioning unit- If the unit was executing 
a motion request! an exit is taken to NXTHOT to 
check for and process the next motion request- 
When the request is not a motion request! parity 
is checked on the data transfer just completed. 

When parity is present an exit is made to the 
recovery 154. fl. 3} portion of the driver and recovery 
is attempted. When the operation completes without 
error-i the type unit is determined! seven track 
or nine track- If the unit was a bOA {seven track} 
device! continue at 1-1 else update the first word 
address of the buffer- 11-1} It is determined if 
a read or write was last performed and if areadi 
a check is made for the file mark. If a write 
was being performed continue at 1-2- If the end 
of file is present! control is given to CflPRD 
where status bits are set in (3 via MAKEfl and an 
exit is made via COMPRfl {complete request processor}. 
If the file mark was not present! and binary infor- 
mation was read! the data is packed into the users 
buffer- If ASCII data was transferred! conversion 
from BCD to ASCII is made- {1-2} The completion 
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bit is checked! if seti an exit is made to the 
complete request processor -CCOMPRfl} to perform the 
housekeeping for the driver. Upon return! control 
is given to. FIND to get the next request. If 
the completion bit is not seti the status bits 
are set in <2 and the preceding sequence follows 
via the complete request processor. 


C 


SM-fl.3 The recovery portion -CRECVR} is entered when a parity 
error has been detected* A check is made for 
parity caused by an end of file mark. If end 
of file! an exit is taken to READCK to allow the 
completion request process previously described to 
be executed. If no end of file status is present! 
the following sequence is performed to try recover- 
ing from the parity error. The error is logged 
on to the engineer file via LOG- If a read was 
in operation when the error occurredi a backspace 
is done followed by a read and error check. If 
the error persists n the preceding sequence is 
performed three more times- If the error still 
exists three consecutive backspaces are performed $ A 

checking for loadpoint after each backspace has 
completed. This allows the error portion of the 
tape to pass across the tape cleaner portion of 
the heads- Execute up to three reads depending 
upon load point and check for read error on last 
read. If the error remainsi perform the preceding 
sequence four times prior to declaring the error 
irrecoverable and exiting to the FAILED routine- 
The FAILED routine sets error flags and makes a 
call to the alternate device handler -CALTDEV} and 
upon return the next PHYSTB is determined via NXTPT. 

The write parity errors follow the succeeding sequence. 

The write is performed three times detecting 
for the error after each. This procedure is tried 
three consecutive times and if the error persists! 
the preceding FAILED sequence is executed- 


5M.fi. M The 1-0 hangup -CTPHANGJ section is entered when 
the driver fails to reveive an interrupt from an 
initiated operation- The <2 register contains the 
address of the physical device table that has failed 
to interrupt- The error code is set in the A 
register and control is given to the FAILED routine- 
The FAILED routine executes the same as previously 
explained. 
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In the following description! the labels used in the driver 
are placed to the left of the description to enhance 
an easy relationship directly to the listing and flowchart- 


TAPINT Places the driver priority level into all requests 
made be driver and set the entry point adresses 
of TAPRINTt TAPCON and TPHANG in there respective 
locations in DBLDRV- The entry points are placed 
into DBLDRV only when the driver is mass memory 
resident. A check is made to determine if the 
driver is busy and if soh an exit is taken to 
the DISPATCHER or else control is given to label 
NOTBSY. 


NOTBSY Zero the error counter! ERRCNTi and set the record 
of the last Physical Device Table! LSTPTi equal 
to the current table address- 

TSTRUD Test the rewind bit {bit b of ESTAT1J to determine 
if the unit is presently rewinding- If rewinding! 
go to NXTPT or else go to N0RUD- 

NORUD If the motion bit {bit S of ESTAT11 is up! a rewind 
has just completed- Decrement the rewind counter! 

Rid! update the motion control code word! ETEMPEi 
and go to M0TI0N+2 - 

FIND Go to Find Next Request routine- If there are 
no requests waiting on this unit! go to NXTPT 
or else save the current PHYSTB address in LSTPT 
and place the PHYSTB address into the parameter 
list of BUFALC- Put the absolute address of FAILED 
into the BUFALC parameter list- Give control to 
BUFALC to determine if the 170b Buffered Data Channel 
is busy- If the 170b is busy! go to FAILED routine 
or else extract the request code from the user 
parameter list and go to MOTION if a motion request 
or else go to XFER- 

NXTPT Pick up the address of the next PHYSTB from ELINK 
of the present PHYSTB- If a new PHYSTB is not 
present! go to EXIT else check to determine whether 
an error is pending on the newly acquired PHYSTB - 
If an error is pending! do not remove the PHYSTB 
from the string until the error has been processed 
so go to N x TPT- If the PHYSTB is error free! go 
to TSTRQID- 

EXIT Set the driver not busy and check if a rewind 
is in progress - Uhen a rewind is in progress! 
the in core flag {ADRINT3- is not cleared. The 
buffer! if present! is released and the buffer 
FUA is set to zero • The MAS3Q0 routine residing 
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in DBLDRV is scheduled to allow other drivers the 
use of the 170b. BUFALC in DBLDRV is entered 
to determine the status of the 170b and whether 
a request is on the BUFALC queue- If the 170b 
rejects the status request ! the exit is made to 
the DISPATCHER from BUFALC. Return is j.to P+3 
of the BUFALC call when a request is found on 
the queue and the 17Qb is not busy. 

XFER The unit is selected! through UNTSELt and bit 14 
of ESTAT2 is tested to determine which type drive 
is connected. Go to MbCH or MbDAn depending on 
type* 

flbQT Initialize the internal control addresses t FUA 
and LUA. Set the parity code to oddi set the 
motion index up for read or write! and go to 
IOXFER. 

flbOA Acquire allocatable core if needed and set up 

control addresses! FliJA and LUA according to mode 
of transfer! ASC or binary. If this is a write 
request! repack the binary information for assembly 
mode! qr convert the ASC code to external BCDi and 
go to IOXFER. 

{buffered} 

IOXFER Set the unit's parity through UNTSEL. If this 
is a write request! check for the presence of 
the write ring by RINGCK. The appropriate tape 
notion is started and the buffer transfer initi- 
ated. The diagnostic deck! EDCL<! is set up 
and an exit is taken to Dispatcher to await the 
End of Operation interrupt. 

{unbuffered} 

IOXFER The parity code is set up and a write ring check 
made if this is a write request- The tape motion 
is then started. The data transfer of the record 
is then accomplished using the A<2 channels. 

EDCLK is updated and an exit taken to the 
Dispatcher to await the EOP interrupt. 

ASCBCD This is a subroutine which does the setup and 

interface with subroutine ABBCDi which performs 
the ASC to BCD conversions. 

UNPK The unpacking of binary data is necessary for the 
assembly mode of the b06 magnetic tape drives. 

The format of unpacked data is as follows : 
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17D0 


15 14 13 fl 7 b 5 □ 


0 

15 - lDj. 

~Q 

11 - 

□ 

3-D- ! 15-14 2 

□ 

13 - a 2 

□ 

1 

ru 

ru 

□ 

l-0 2 ! 15-12 3 

D 

u - s 

□ 

5 - D 3 

1 etc. I 


IN A subroutine which performs hardware input in- 

structions and monitors reject conditions- 

UNTSEL This subroutine combines the code in the A register 
with the select coden UNTNODn performs the select 
function through the subroutinen OUT. The subroutine! 
STATUSn is also called. 

STATUS This subroutine reads both hardware status words n 
through the subroutine INn and combines them into 
the Physical Device Table word ESTATE- 

TAPCON This is the entry point for interrupts from the 
1732 magnetic tape controller- The buffer is 
terminated! the diagnostic clock is reset and 
the interrupt is acknowledged- If no interrupts 
were expected! a monitor request is made to print 
the Ghost Interrupt message -CGI FIT} on the standard 
comment device- 

EXPECT The interrupt was expect so the diagnostic clock 
is reset and the STATUS subroutine is entered to 
status the device- The Ready Status bit is checked 
and if it is down! a failure code of b is passed 
to RAILED • 

READY If the motion control bit {Bit five of ESTAT11 is 
up! control is passed to NXTF10T - If not up! go 
to NONOl. 

N0M01 If the parity error status is set! control goes to 
RECVR otherwise go to NOPAR. 

NOPAR The device status is examined to determine the type 
of device being used- If the unit is not a bOAi 
the first word address is updated before checking 
the type of I/O being performed- Control is given 
to READC if a read was performed or URITEC if a write 
was performed- 

READC The EOf status is checked- If present! t*->e EOF 

bit {Bit 14 of ERE(3ST> is set and control goes to 
CFIPRD- If not present! go to NOFILE- 

NOFILE If bOA device! go to CKFIOD else go to URITEC. 

CKFIOD If the mode of operation is BCDi go to BCDASC or 

if the mode is Binary go to PACK- 
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BCDASC 

URITEC 

COMPL 


PACK 

RECVR 


FALPAR 

RECVR 

FALPAR 

BCKRD 

BCK3RD 

BCKlilT 

ERASE 

TPHANG 

FAILED 


A subroutine which performs setup for and interfaces 
with the subroutine BCDSAt which performs the BCD 
to ASCII conversions. 

The completion bit and the FldA/LUA is checked for 
completion. If not complete! go to XFER else give 
control to COMPL* 

If the function is either a write or motion request! 
a call is made to the Complete Request Processor 
-CC0P1P RC2 > prior to going to FIND. If the function 
was a readi MAKE(2 is entered prior to going to 
COMPRfl. 

The binary data that was unpacked to assembly 
mode is repacked to full binary words. 

When RECVR is entered i a check is made to determine 
if the EOF caused the parity. If the EOF caused 
the parity! the completion bit is set -Cbit 14 of 
word eight! and control is given to COMPL. If not 
EOFi the error is logged on the engineer file via 
LOG and the error counter! ERRCNTi is used as a 
jump index into the recovery routine table! RCVRTBi 
to enter the correct routine- ERRCNT is then tallied 

Error code 3 is passed to FAILED to indicate a 
parity error. 

The error counter! ERRCNTi is used as a jump index 
into the table! RCVRTB and ERRCNT is tallied- 

The error code 3 is passed to FAILED to indicate 
a parity error- 

The subroutine XCTMOT is called to backspace one 
record and control is passed to IOXFER. 

This routine attempts to backspace three records ! 
checking for load point after each backspace- 
Then the tape is advanced the number of records 
which has been backspaced and the transfer is attempt 
ed again at IOXFER. 

This routine backspaces one record by XCTMOT and 
then passes control to IOXFER. 

This routine writes a file mark and then backspaces 
one record! which amounts to an erase tape function. 

This is the entry point for I/O hangups. An 
error code of zero is passed to FAILED. 

If a failure occurred during a rewind! the rewind 
counter! RUi is ducremented and a call is made to 
MAKEfl to set the error bits prior to setting the 
device failed and error bits in control word ESTAT1- 
Then the error code and logical unit number are 
formed as the passed parameter in a scheduler call 
to the Alternate Device Handler CALTDEVJ. 
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MOTION 

XCTMOT 

MOTSTR 

DONEM 

liJRFM 

REIil 

BKSP 

REUUN 

FLFR 

FLBK 

NXTMOT 


The requestor’s motion code word is retrieved from 
the calling sequence and the subroutine XCTMOT 
is entered- Upon return! control is passed to 
COMPL- 

The motion code is saved in location ETEMPSt the 
motion control bit is set in ESTATIt and the unit 
is selected by the subroutine UNTSEL- The next 
motion coden bits 14-12 of ETEMPBn is used as a 
jump index into the table SUBMOT- 

This routine entered by all of the motion processors* 
The proper motion function is initiated through OUT. 
If an end of operation interrupt was requested! 
an exit is taken to the Dispatcher- If EOP was 
not requested! the motion was either a rewind or 
a rewind and unload. If an unload was requested! 
DONEM is entered. If a rewind was requested! 
control is passed to NXTPT- 

The motion code is zero or an unload function has 
just been executed. Density select is performed 
of requested! the motion control bit is reset! 
and a return through XCTMOT is taken- 

The code is 2. A write ring present check is 
performed! proper parity determined! and control 
is passed to MOTSTR. 

The code is 3- A load point check is performed 
by LPCHK and if not present! the rewind control 
bit -Cbit b of ESTAT1J is set and the low level 
program REUCK is scheduled at level 4. The 
subroutine Bl'SYCK is called and upon return control 
is passed to MOTSTR. 

The code is 1. The subroutine! LPCHK t is called 
and control is passed to MOTSTR. 

The code is 4. The control wordi ETEMP2! is 
zeroed to terminate the motion request. The sub- 
routine BUSYCK is called and control is passed to 
MOTSTR. 

The code is 5. The proper parity is determined 
and control is passed to MOTSTR. 

The code is fc>. The subroutine! LPCHK! is called! 
proper parity is determined! and control is passed 
to MOTSTR. 

This routine is entered after an EOP interrupt 
and when the motion bit is set in ESTAT1. If 
more iterations of the current motion are to be 
performed the iterations are tallied down and 
control is passed to DOMOTi which re-def ines the 
motion index for MOTSTR. If no iterations remain! 
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the motion control word ETEMP2 is updated for the 
next motion and control is passed to DOKOT- 

BUSYCK This subroutine checks the status of magnetic 

tape system for a busy condition and returns if 
the status is negative- If Busy is up*» the low 
priority program BSYWAT is scheduled at level 4 
and an exit taken to the Dispatcher. 

BSYWAT When the busy status goes negative i the location 
NOBUSY is scheduled at the driver level i which 
restores the I-register with the address of the 
Physical Device Table which is currently being 
processed- 

RINGCK This subroutine checks for the presence of a 

write ring on the selected unit- If not present ! 
an error code of 1 is passed to f AILED. 

LPCHK A check for load point is performed- A normal 

return is executed if a negative condition exists- 
If load point status is upn the motion interation 
counter is zeroed and control passed to NXTflOT. 

CKPRTY The proper parity is determined and selected for /f>, 

the file mark operations. 

REWCK A rewind operation is in progress- This routine 
checks the status for the presence of load point 
and when it occurs i the" rewind control bit is 
reset in ESTATl and the driver is scheduled- Upon 
and internal reject on status function! schedule 
up todrivers priority. 

WAIT This routine monitors the controller active 

status at a low level for UNTSEL- When a not 
active condition occurs i the location CONSEL is 
scheduled at the priority of the driver- 

A2BCD A5BCD converts ASCII codes {two ASCII characters 
per word! Bits D-bi fl-14> to BCD codes {two BCD 
Characters per wordi Bits D-Si fl-131- The original 
codes are replaced by the converted codes so the 
orginal ASCII buffer is modified to be a BCD buffer- 

BCD?A BCDZA converts a buffer of BCD codes {two characters 
per work! D-Si fi-131 to ASCII codes {two ASCII codes 
per wordi Bits 0-L»! The original BCD buffer 

is modified to be an ASCII buffer. 
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55.0 17H5-2 DISPLAY DRIVER 

55.1 General Structure 

.0 

There are three(3) modules in this driver, the Initiator, the Continuator, 
and the Diagnostic entry(DDINIT, DDCONT, DDDIAG). Actions are usually in- 
itiated in the Initiator and completed in the Continuator, but control is 
often passed back and forth between these modules during the operation of 
the driver. 

Error Entry 

The first portionof DDDIAG is entered only in the case of Timer Timeout, 

The second portion, which prepares for the jump to the Alternate Device 
Handler, is entered nearly every time there is any kind of a reject of an 
I/O instruction. The only exception is in the unbuffered version of the 
driver when the driver initiates a read and the display controller rejects 
because data is not ready the first try. (A Data Interrupt will indicate 
when data is ready.) There are no re-tries on rejects. 

This driver is interrupt-driven. Actions are initiated by the driver and 
control is then given to the dispatcher until an interrupt indicates the 
action is complete. 

Interrupts are inhibited only when calls are made to request or release 
Volatile Storage. 

2. Requesting Space 

Normally when space is required in core a request is made for allocatable 
core via a Space Request. The driver will never request more than what is 
needed for a full CRT(13 X 80 CRT can hold maximum of 1040 ^q characters, 

20 X 50 CRT maximum of IOOO^q characters), and in the case of small requests 
goes to Volatile because Allocatable is not always available. 

This driver pays no attention to line size(either 80 or 50 characters). Data 
arrangement in lines is up to the user. 

Allocatable core is requested when data is read in for an FREAD command. (buf- 
fered version only) The data read in may include STX and ETX characters which 
need to be stripped from the message. Then the edited data is passed to the 
user’ s buffer. 

Allocatable core is also used to hold the user’s pseudo-escape codes because 
the hardware will not handle pseudo-escape codes appropriately. Instead, 
the pseudo-escape codes in the user’s buffer are replaced with Sync codes 
(which do nothing), until the message has been sent. Then the pseudo-escape 
codes are returned to the user’s buffer allowing the user to send the same 
message again if he desires. 
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3. Pseudo - Escapes 

Pseudo-escape codes are those which the driver will interpret and take the 
necessary action to perform but which are not acted upon solely by the 
hardware . 

They are: 


FUNCTION 

ESCAPE 

HEX VALUE 

Clr/Reset 

IB 

OC 

Turn on Alert 

IB 

07 

Disallow Send Interrupts 

IB 

1A 

No Cursor Movement 

IB 

16 


4. Programmed Line Skip 

The FWRITE instruction normally activates a Line Skip procedure before the 
user ! s data is sent to the CRT. This will cause the data to be displayed on 
a new line. If the user wishes to prevent this Line Skip, and he chooses to 
write no other escape functions(either pseudo or otherwise) the ”No Cursor 
Movement’ 1 function will enable him to do so. Any other escape function at the 
beginning of the message will automatically inhibit the usual Line Skip. 

The automatic Line Skip also has a couple Line Clear functions associated with 
it. (Line Clear will work only with a display that has an edit keyboard.) 

The automatic Line Skip also occurs preceding an FREAD and includes an STX 
code. Then data which the operator enters will be read beginning with the 
STX. If the operator chooses, the CRT may be cleared before entering, and if 
no STX is placed back on the CRT, the read operation, which begins after the 
operator depresses SEND, will begin at the upper left comer. 

5. Priority 

If a CRT is to be used as a comment device, it should be run at the same priority 
level as the standard comment device. If buffered it should run at a priority 
level equal to or lower than other devices on the 1706, and at the same priority 
as the 1706. 

6. Status 

A program which requests Status of the device will get Director Status one(l) 
from word twelve(12) of the Physical Device Table. 

7 • Status Switches 

The setting of the Status Switches, which is obtained with Director Status Two(2), 
is passed to the user in his routine RD1745(Send Request Processor) in the Q Regis- 
ter along with the logical unit number of the station that interrupted. The 
logical unit number appears in the lower eight (8) bits, and the Status Switches 
appear in bits eight (8) to eleven(ll). 
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8. Not Re-entrant 

This driver normally expects to complete any operation which it has begun before 
allowing another request to be acted upon, even if a newer request is of a 
higher priority level. At the beginning of the driver the "op in progress" bit 
is examined to check for driver in operation. If the driver is busy with an 
FWRITE, WRITE or READ request on any of the logical units which are threaded to- 
gether, control will be released to the Dispatcher. The request will be picked 
up after completion by going through FNR for each device on the Thread. 

The only exception is if an FREAD request is in progress and has reached the 
point where the driver is waiting for the operator to enter information. This 
point is indicated by the absence of bit six(6) in word nine(9) of the Physical 
Device Table. Bit six(6) present indicates the driver is processing an FREAD re- 
quest. When bit six(6) is absent the driver will allow other requests for other 
logical units to be processed. 

9.1 Request Flow 

The general sequence of events for an FREAD request is as follows: 

An Alert, Line Clear, Line Skip, Line Clear, and STX codes are first written on 
the display. In the 1706(Buf fered) version of the driver, a completion interrupt 
from the 1706 will then be expected. In the unbuffered version, a data interrupt 
is expected after each word written or read- Then a Write Terminate instruction 
is executed to obtain a 1745-2 End of Operation interrupt to assure that the dis- 
play is done handling the data. (When a Line Skip or New Line Code is sent as the 
last character in a message, a maximum of one(l) mi lie second may elapse before the 
End of Operation interrupt occurs.) After clearing bit six(6) in word nine(9) and 
clearing Active on the display, the driver is exited to wait for operator data 
entry. When the Send interrupt occurs, indicating the operator has entered the 
data, the data is read in from the STX marker or from upper left corner of the 
CRT. 

Completion of the read is indicated by the ETX causing a 1745-2 End of Operation 
interrupt or a 1706 End of Operation interrupt if the buffered version is being 
used. The 1706 interrupt will occur only if the number of words requested is 
equal to or less than the number of words entered. In the unbuffered version, 
the driver will read to ETX (End of Operation interrupt), or until the requested 
number of words has been read whichever is shorter. 

The data is read in and edited so as to remove the STX (if any,) and the ETX codes. 
Then control is passed back to the user program or to additional requests if any 
are stacked. (In the buffered version the data is first read into an Allocatable 
or Volatile Storage area before being edited and moved to the user f s area.) The 
edited data is followed by an $FF character or an $FFFF word if space is available. 






C 
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9.2 READ request 

The READ request is not preceded with any kind of a write but reads immediately 
from the current cursor position to ETX or buffer full, whichever is shorter. 

The data is passed directly to the user unedited. 

9.3 F WRITE request 

The data in an FWRITE request is examined for an escape code in the first character 
position. If one is present the next character is examined to see if it is one 
which the hardware will act upon, or if it is one defined as a pseudo-escape code 
upon which the driver will act. Pseudo-escape codes are processed by the driver, 
stored elsewhere, and replaced in the data stream with Sync codes. If there are 
no escape codes at the beginning of the data stream, a Line Clear, Line Skip, 

Line Clear series of codes is sent to the display. They are followed by a Write 
Terminate. Then the data stream is sent, followed by a Write Terminate. At the 
completion of the Write Terminate, the pseudo-escape codes are returned to their 
respective positions in the data stream, the area where they were stored is re- 
leased, and the request is completed. 

9.4 WRITE request 

This request is much like the FWRITE request because data at the beginning of the 
data stream is examined for pseudo-escape codes and such codes are implemented 
if found. However, there is no provision for an automatic Line Skip as in the 
FWRITE request. 

10. Flag Settings 

When an interrupt occurs, the following values of D INF LG enable the Iriver to 
know what operation was completed: 

Buffered version: 

1 Write Terminate caused End of Op Interrupt on 1745-2 

2 READ completed through 1706 

4 Line Skip preceding FWRITE completed through 1706 

8 Line Skip preceding FREAD completed 

10 Completed transfer of data on FREAD through 1706 

20 Completed transfer of data on WRITE or FWRITE 

Unbuffered version: 

2 READ data transfer completed 

4 Line Skip preceding FWRITE completed 

8 Line Skip preceding FREAD completed 

10 FREAD data transfer completed 

20 Completed data transfer WRITE or FWRITE 

40 Completed reading one extra word on FREAD 
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The FREAD commands usually end up reading one word more than required due to the 
additional character positions taken up by ETX and STX if present. If STX is 
present at the beginning of the message, the STX character is stripped off and all 
other characters moved up one character position. The operator may remove the 
STX by clearing the CRT manually. Therefore, the driver checks first whether 
the STX is present. 

11. Additional Flags 

SENFLG 1 = Do not enable SEND interrupts 
0 = Enable SEND interrupts 

This flag is examined and cleared each time the driver nears completion; therefore 
the user must request the pseudo-code ’’Disallow Send Interrupts,” with each 
WRITE or FWRITE command if he wishes to continue disallowing Send Interrupts. 

Send is automatically allowed when the driver encounters an FREAD command. 

RWFLG (in the unbuffered version) indicates whether the driver is in a read 
or write operation. 

0 = Read 

1 = Write 

ALLFLG if set indicates the address at which allocated core begins. 

M IFLG indicates whether manual Interrupt has been requested by operator. 


12. Physical Device Table 


Word 



EXT 

DDIN1T, DDCONT, DDDIAG 


51 

NUM 

$1299 

Request for Scheduler 

1 

ADC 

DDINIT 

Initiator Entry Address 

2 

ADC 

DDCONT 

Continuator Entry Address 

3 

ADC 

DDDIAG 

Diagnostic Entry Address 

4 

NUM 

-1 

Diagnostic Clock 

5 

NUM 

0 

Logical Unit 

6 

NUM 

0 

Parameter List Location 

7 

NUM 

$1501(buffered) or 

$501 (unbuffered) 



Code to obtain status from display device 

8 

NUM 

$E6 

Equipment Code 

9 

NUM 

0 

Error field and request code 

10 

NUM 

0 

First Word Address(FWA) 

11 

NUM 

0 

Last Word Address + 1 (LWA + 1) 

12 

NUM 

0 

Last Equipment Status of 



device(Director Status 1) 

13 

NUM 

$40 

Physical Station Number (Example 



shows Physical 

Station 1) 

14 

ADC 

CRT452 

Thread of next device(If only o 


15 

16 


NUM 

NUM 


device, should thread to itself--last device should always 
thread back to first device--if buffered, should thread to 
other devices on 1706 Buffered Data Channel.) 

11 Station Logical Unit 
0 Words 16 & 17 are temporary storage 
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12. Physical Device Table , concluded... 

17 NUM 0 for the driver necessary when 

other stations have requests to be processed while one 
station is waiting for operator to enter data for an 
FREAD request. When FNR searches for other requests, 
words 5, 10, and 11 are destroyed. These must be re- 
placed when the FREAD request is processed to completion 
after operator hits SEND. 

18 NUM $2000 Code to obtain Status on 1706 

(Buffered driver only) 

13. 1745-2 Hardware Function and Status Codes 

Director Function 1 

Bit 0 Clear Controller 

1 Clear Interrupts and Enables 

2 Enable Data Interrupt 

3 Enable End of Operation Interrupt 

7 Enable Station Interrupt 

8 Clear Memory and Reset Marker 

9 Alert 

10 Reset Marker 

12 Write Terminate 

Director Function 2 
Bit 4 Set Station Active 

5 Clear Active 

6-9 Station Address 

10 Select Station 

11 Deselect Station 



Director Status 1 
Bit 0 Ready 

1 Busy 

2 Interrupt 

3 Data Ready 

4 End of Operation 

11 EOM 

12 Station Active 

13 Send Request 

14 Message Pending 

Director Status 2 

Bit 0 Status Switch 1 

1 Status Switch 2 

2 Status Switch 3 

3 Status Switch 4 

6-9 Station Address 
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14. EPROC 


Since EPROC is inadequate at present to handle interrupts from the 1706 or 
from multiple displays even if unbuffered, the user must provide his own 
interrupt handling capability. An example of such a routine which has been 
attached to SYSBUF is given in the Installation Manual. 

In addition, the LOCORE Interrupt Trap region must be set up to indicate 
the user's interrupt handler instead of EPROC at the appropriate interrupt 
entry. 

15. User' s Send Request Processor 

This routine is necessary because of the nature of the display Send Key. 

Since it is capable of interrupting at any time, the Send Request Processor 
should be set up to determine what to do with the interrupt. If there is a 
request for the driver when the SEND interrupt occurs, the driver will handle 
it, but if there is no request against the driver, control will be passed to 
the Send Request Processor, RD1745. In the routine RD1745 which must be in- 
stalled in the Operating System at the same time as the driver, the user can 
specify whether a process program should be scheduled, an error message written 
to the Comment Device, or the interrupt should be ignored. 

The following sample coding for RD1745 looks for Status Switch 3 set. If 
found, a process program from mass memory is scheduled. If not found an 
error message is scheduled for the Comment Device and exit made to the Dis- 
patcher. 
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NAM 

RD1745 



ENT 

RD1745 



EQU 

FWRITE($C00),RP(16),CP(1) 



EQU 

AMONl($F4) ,ADISP($EA) 



EQU 

NOOOF ( 6 ) 



EXT 

USERXY 


ST0RQ 

NUM 

0 


STORQL 

NUM 

0 


RD1745 

N0P 

0 



STQ* 

ST0RQ 

SAVE LUN + STATUS 


LLS 

8 



QRS 

8 



STQ* 

ST0RQL 

SAVE LUN 0NLY 


AND- 

NOOOF 

MASK 0FF STATUS BITS IN A 


INA 

-4 

CK F0R SWITCH 3 0NLY SET (BIT 2) 


SAN 

A-*-l 

IF 0THER SWITCHES, WRITE ERR0R MES 


LDQ* 

ST0RQ 



RTJ- 

(AM0NI) 

SCHEDULE USER PR0CESS TYPE PRG 


NUM 

$1255 

WHICH RESIDES 0N MASS MEM0RY 


ADC 

(USERXY) 

NAME 0F USER PR0GRAM T0 BE 
CALLED FR0M DISK 


JMP- 

(AD ISP) 

EXIT T0 DISPATCHER 

A 

RTJ- 

(AM0NI) 

WRITE ERR0R MESSAGE T0 C0MMENT DEVICE 


ADC 

FWRITE+RP*54CP*5 



NUM 

0 

C0MPLETI0N ADDR 


NUM 

0 



NUM 

$8FC 

C0MMENT DEVICE 



NUM 

17 

LENGTH 0F MESSAGE 


ADC 

MES 

FWA 0F MESSAGE 


JMP- 

(AD ISP) 


MES 

ALF 

17 ,INC0RRECT STATUS 

SWITCH SELECTI0N. 


END 





mhk a j mi 


DOCUMENT CLASS IMS _ DATE 

PRODUCT NAME J«vLlU Operating System page SS.T 

PRODUCT MODEL Mo . E00Lm3.0 MACHINE SERIES 1700 


16. Sample Process Program 

The following code is an example of a process program residing on mass memory 
and called by RD1745. The first instruction $C8FE picks up the address in 
core where the program is placed when read in from mass memory. This program 
cannot have any P designations in the assembled listing. These can be avoided 
by coding such as LDA =XMES -USERX. Core occupied by this program must be 
released when the program is done. 

This sample routine merely writes a message on the device that had a Send in- 
terrupt. 



NAM 

USE EX 

SAMPLE USER PROCESS PR0GRAM 


ENT 

USERX 


USEKX 

NUM 

$C8FE 

LDA WITH *-l T0 FIND 0UT THE 

* 



ACTUAL BEGINNING ADDR 0F USERX 

* 



AFTER IT HAS BEEN L0ADED FR0M DISK 


STQ* 

ST0RQ 

SAVE LUN N0.+ STATUS SWITCH 

* 



SETTING— LUN IN L0WER 8 BITS - - 

* 



STATUS SWITCHES IN BITS 8-11 


TRQ 

A 



AND 

=N$FF 



ST A* 

LUN 



LDA 

=XMES -USERX 



ADD* 

ADDR 



STA* 

FWA 



NUM 

$C00 

F WRITE 


NUM 

0 

C0NTINUATI0N 


NUM 

0 

THREAD 

LUN 

NUM 

0 

LUN 


NUM 

0 

MESSAGE LENGTH 

FWA 

NUM 

0 

FIRST WORD ADDRESS OF MESSAGE 


LDA* 

ADDR 



STA* 

REL + 2 


REL 

RTJ- 

($F4) 

REQUEST T0 RELEASE C0RE 


NUM 

$1801 

0CCUPIED BY THIS PR0GRAM 


ADC 

0 

JUST BEF0RE EXITING 


JMP- 

($EA) 

EXIT T0 DISPATCHER 

ADDR 

NUM 

0 

BASE ADDRESS 0F PR0GRAM IN C0RE 

ST0RQ 

NUM 

0 


MES 

ALF 

9, THIS IS A MESSAGE 



END 

USERX 



A process program such as the one above is included in the system at installation 
time. A *YM entry with its ordinal, the program itself, and a priority level 
*S statement make up the items to be included at install time. The following are 
sample entries: 

*YM,USERXY,19 

*M USERXY 

} 

*S,19,3,M 
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17. Clearing Interrupts 

Normally the operator ought to manually Master Clear the 1745-2 Display Con- 
troller before putting it into operation to clear out SEND interrupts if any 
SEND keys have been pushed when the computer is not operating. However, the 
following code, when added to the SPACE module of the Operating System, will 
help to clear up this problem. It can be inserted following the REJ N0P 0 
instruction. It should not be used if any devices other than CRT's are on 
the thread unless code is added to check the device type, which is found in 
word 8 of the Physical Device Table, bits 10 through 4. The device type for 
CRT's is E, and is found in bits 7-4. All display devices in the thread must 
be turned on before this coding will work properly. 



J?& i k‘k'k'kk'kic 
*A* *A**A” *A’ *A’ ‘X'Jrk'k 


L00P 


SAVQ 

ST0RQ 


CODE INSERTED IN SPACE MODULE TO CLEAR CONTROLLER 


AT RESTART. 
EXT 

CRT451 


LDQ 

=XCRT451 

NAME OF ANY CRT PHY DEVICE TABLE 

STQ* 

SAVQ 


STQ* 

ST0RQ 


LDA- 

13, Q 


AND 

=*J$03C0 

SAVE STATI0N NUMBER BITS 6-9 

ADD 

=N$0410 

ADD SEL STATION 1 + SET ACT BITS 

LDQ- 

7,Q 


INQ 

1 

DIRECT0R FUNCTI0N 2 

N0P 

0 


0UT 

-1 


INQ 

-2 

SET UP DATA WRITE 

LDA 

=N$1616 

WRITE SYNCS T0 CLR INTERRUPTS IF ANY 

N0P 

0 


0UT 

-1 


LDQ* 

ST0RQ 


LDA- 

13, Q 


AND 

=^$03C0 


ADD 

=N$0020 

CLEAR ACTIVE BIT 

LDQ- 

7,Q 


INQ 

1 


N0P 

0 


0UT 

-1 


LDQ* 

ST0RQ 


LDA- 

14, Q 

THREAD W0RD 

STA* 

ST0RQ 


SUB* 

SAVQ 

CHECK F0R END 0F THREAD 

SA-Z 

4 


LDQ* 

ST0RQ 


JMP* 

L00P 


NUM 

0 

TEMP ST0RAGE 

NUM 

0 

TEMP ST0RAGE 


c 



1 


2 
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CYFT is used to build a Hollerith tape suitable for input 
to COSY. CYFT inserts the appropriate DCK/t HOL/ and END/ 
cards. 

5b. 2 Entry Point Names 
CYFT 

5b. 3 Externals 

None 

5b. 4 Entry Interfaces 

CYFT is a program library program called by a m entry point 
statement. 

5b. S Exit Interfaces 
None 
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57.1 Function 

LCOSY will list cosy deck names and punch deck cards on the 
assigned punch device. Input terminates with a cosy END/. 

57.5 Entry Points 

LCOSY 

57.3 Externals 
None 

57.4 Entry Interfaces 
None 

57.5 Exit Interfaces 
None 
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58.1 Function 

DTLP is a bootstrap program which provides a means of 
getting the DSKTAP file into core and execution. 

56.2 Entry Points 
DTLP 
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56. 4 Entry Interfaces 
None 

58.5 Exit Interfaces 
None 
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ST-0 Disk to tape Loading Program 
5T.1 Function 

The function of DSKTAP is to save a mass storage operating 
systemi which has been installed on a disk packi on a 
magnetic tape- This magnetic tape can be dumped onto a 
disk pack via DSKTAP thus eliminating the need to re-install- 

5T.2 Entry Point Names 

DSKTAP 

ST. 3 Externals 

ENCDHX 
DCODHX 
ENCODE 
CDRIVE 
MDRIVE 
MGDRIVE 
MGREAD 

ST. *4 Description 

DSKTAP is a stand alone program. It has its own drivers 
for the 1736 1 1731-1732-. 1711. The DSKTAP program can be 
loaded in absolute form via a bootstrap loaderi in 
relocatable form under f1S0S-» or called from the USOS library. 

The primary purpose of DSKTAP is to save a mass storage 
operating systemi which has been installed on a disk packi 
on a magnetic tape. The magnetic tape can be dumped unto a 
disk pack via DSKTAP. 

Data is read from the disk in binary 153b word blocks 
■Cl trackli starting at sector zero to the sector specif iedi 
and copied onto magnetic tape. When data is transferred 
from magnetic tape to diski 153b word records are read from 
tape and copied to the diski starting at sector zero. 
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bO.O SILP 
bQ « 1 Function 

SILP is a bootstrap program used to load the System 
Initialize* -CSI> file. 

bO.E Entry Points 

SILP 

b0.3 Externals 
SI 

, bO-H Entry Interfaces 
None 

b0 * S Exit Interfaces 
None 
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bl.O UPDATE - Binary System Updates 
bl.l Function 

This program is used to update a System Binary Tape. It 
provides a means to replace programs with updated versions 
using only Nag Tape eliminating the intermediate card 
handling of the System Binary Deck. 

bl-2 Entry Point Names 

UPDATE 

bl.3 Externals 
None 
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bl.7 Description 

The assembled object binary tape of the update program/s 
is input via the Standard Input Tape Unit and saved in the 
scratch area of the disk* As each program NAM card is 
recognizedi the name is logged and entered in a core resident 
table. ~ 
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When Input is complete! the operator is asked ''READY?*. 

At this pointi the operator checks to see that the old 
system tape is ready on flag Tape Unit Zero -CD} and a scratch 
tape is ready on the Standard Binary Output Unit {New System 
Binary)-. When ready! depress Carriage Return. All ASCII 
records {System Initializer Control Cards)- are transferred 
directly from the old system tape to the new system tape. 

When a NAM card is recognized! the program name is compared 
to those in the core table. If a match is not foundi the 
old system program is transferred to the new tape. If a 
match is foundi the program name is listed under ^PROGRAMS 
REPLACED*! and the updated version of that program is 
transferred from disk to the new tape. The old tape is 
searched forward to the XFR card of that program and 
processing continues with the next card. Duplicate programs! 
i.e. some NAfW will be replaced by their one updated version 
regardless of the number of times it appears on the old 
system tape. 

When a file mark is read on the old system tape! all programs 
will have been transferred to or replaced on the new tape. 

A file mark will then be written on the new system tape. 

The core table is now searched for names of programs not 
transferred. If found! they are listed under *PR0GRAf1S 
NOT USED*. 

The operator is then informed *UPDATE FINISHED* and the 
program exits to the job processor. 
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b2.D LISTR 
bS « 1 Function 

LISTR will list the name and program length of all the 
binary programs on a binary input device. Control 
statements are listed in sequence. A cumulative sum is 
also listed. 

L5.E Entry Points 

LISTR 

b2.3 Externals 
None 

b2.4 Entry Interfaces 
None 

b5.S Exit Interfaces 
None 
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b3.0 OPSORT - Operand Sort Program 
b3«l Function 

The 17D0 Operand Sort Program will provide a means of cross 
referencing 1700 assembly language operands. The program will 
operate on the 17D0 MACRO Assemblers list output. It will 
read the list output from the standard input device {cards 
paper tape-» magnetic tape}. Each record will be sorted by 
operand. An alphabetic listing of all operands will be output 
on the standard printer output device. The listing will 
include the source card number and operation code for each 
operand. If any macros are present in the programi they will 
be printed along with their location numbers prior to output 
of the sorted operands. 

b3.2 Entry Points 

OPSORT 

b3.3 Externals ,0 

None 

b3.4 Entry Interfaces 
None 

b3.5 Exit Interfaces 
None 

b3.b General Description 

The following is a general flow chart of the Operand Sort 
Program • 

PASS 1 

1. Read a record from standard input device. 

2. If the record is an error on list output {example m*NN"*«*« 
etc.} return to step 1. 

3. If the record is the second record of a two word instruction 
{no card number} return to step 1. 
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4. If the first character of the record is an alpha-numeric 
character retiurn to step 1 -Cthis will occur when 
processing list tapes etc. Where it is necessary to 
advance to the NAM card of the next routine and therefore 
by-pass the label table of the previous routine.} 

5. If the card is an END card r go to step 11. 

b ■ Pick up the first character erf the operand. 

7. If the character is a left pareni pick up the second 
character. 

fi. Store the operand n card number and opcode into 1 of Win 
lb word ^character buffers' 7 based on the first {or second 
character of the operand. The 41 buffers are: 

10 buffers for numeric characters {0-1} • 

2b buffers for alphanumeric character {A-Z>. 

1 buffer for =. 

1 buffer for ►*. 

1 buffer for +. 

1 buffer for -. 

1 buffer for all other operands. 

Information is stored in the following format: 

ZZZZ YYYY XXXXXXXXXX 

where X is the operand-i Y is the card number and Z is the 

instruction. 

T. If the ''character buffer' 7 is full {T records fill itJn 

output the buffer on mass storage scratch. Save the sector 
number in the ^sector table' 7 and in the 'll word of the in- 
formation written on the sector. 

10. Return to step 1. 

11. Output all partially filled ^character buffers' 7 on mass 
storage scratch i saving the sector number in the ''sector 
table.' 7 

12. End of Pass 1. Go to Pass 2. 


PASS 2 

1. Using the ''sector table* read all ' 7 Q° character records in 
to memory overlaying Pass 1 of the program. If there are 
more than 400 operands of the nature ZZZZ YYYY XXXXXXXXXX 
beginning with the same character {Oli a multi-pass load 
will be performed. 
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S. Sort the records based on operand and output on the 
standard printer output device. 

3. Repeat steps 1 and 2 for the characters 1 through 

A through _Z* =* *•, + n and the miscellaneous characters. 

M. End of Program. 


Sector Table 

A 41 word table containing the sector number of the last 
^character buf fer' 7 written on mass storage scratch for each 
key character the table is ordered as follows: 
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bM.O Fortran Monitor Runtime Package -CF0RTRA> 
bM.l Function 

The 1700 FORTRAN/Moni tor Run-Time Package allows a FORTRAN 
written program to make requests of the 1700 Monitor such 
as Readn Write! Schedule and Timer Requests. This capability 
allows FORTRAN programs to communicate with the Monitor 
through the FORTRAN subroutine Call Statement. 


bM.B Entry Points 

READ 

WRITE 

FREAD 

FWRITE 

SCHEDL 

TIMER 

DISP 

DISPAT 

LINK 

CLOCK 

INPINS 

OUTINS 

RELESE 

ICONCT 

0C0NCT 

bM.3 Externals 


None 

bM.M Entry Interfaces 

Refer to calling sequence! section bM.b.l. 
bM.5 Exit Interfaces 

Refer to calling sequences! section bM.b.l 
b 4 • b General Program Information 

bM.b.l Calling Sequence 


C 


Regular Read 
Regular Write 
Format Read 
Format Write 
Scheduler Request 
Timer Request 
Dispatcher Request 

Dispatcher Request {alternative name> 
Passed Parameter Request 

Core Clock Request g 

Input Through AiCJ Channel Request * 

Output through AidJ-i Channel Request 
Release Memory Request 

Connect 1750 and Execute an Input Request 
Connect 1750 and Execute an Output Request 
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Read! Write! Format Read & Format Write 


Call Name {Logical unfti buffer! length! completion 
location! flag-priori ty ! temp.> where name is 


01 • 

READ 

for 

b. 

WRITE 

for 

c . 

FREAD 

for 


sad a format record. A format 
record^s length is defined for each 
device as follows: 


DEVICE 


MODE FORMAT RECORD 


Card Reader ASCII 


fid columns or length of the 
buffer! whichever is less° 


Paper Tape Binary Word count is the complement 

Reader of the first two frames of 

tape. Checksum is the last 
two frames . 


Paper Tape Reader 

& Typewriter ASCII String of characters terminated 

by a carriage return. 


d. FWRITE 

DEVICE 
Card Punch 


for Write a format record. A format 
record^s length is defined as follows: 

MODE FORMAT RECORD 

ASCII fiQ columns or length of the 

buffer! whichever is less. 


Paper Tape 
Punch 


Paper Tape 
Punch 

Typewri ter 
Buffer 


Binary Word count N is complemented 

and punched as first two 
frames. Checksum is the last 
two frames . 

ASCII A string of characters! ter- 

minated by a carriage return. 


An area of core which data is read into or 
written from. 
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Length The number of words in the Buffer. 

If this is a mass memory logical uniti then length is 
the name of a three-word vector containing. 


Length 



No. of words 


Hass memory address 
bits 30-15 


Hass memory address 
bits 14-0 


Hode-Logical Unit The logical unit number of the 

device is in bits S-0. The mode 
is bit IE. The logical units are 
detailed below. 


LOGICAL UNIT NO. 


HEANING 


HO 3> E 


SlfiFI 

$ 06 n 

$0SFA 

$18FA 

$lfiFC 

$18FD 

$01C2 


Input medium 
Input medium 
Output medium 
Output medium Printer 
Output comment 
medium 

Input comment 
medium 
Hass memory 
logical unit 


ASCII 

Binary 

Binary 

ASCII 

ASCII 

ASCII 

Binary only 
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IS 14 13 IS 11 D 1 0 







1 

A 

□ 

2 

r 

r LU J 

Actual logical unit number 
A core location containing the 
logical unit number. 


MODE Used only on devices capable of 

both modes® 


1 ASCII mode 

0 Binary mode 


Completion Location: 


A location in a program to return control to when the I/O has 
finished. This may be a statement label in the same program 
{flag =0>i an index to the directory {flag-lli or another program 
residing in Core {flag=2>. 


Flag Priorities: 

A 3-digit number {hexadecimal! containing the completion priority 
in bits 3 -Dt and the Request priority in bits 7-4 t and a flag in 
bits 11-fl {refer to completion location for flag meaning}. If 
bit IS is setn the actual buffer address can be found in the 
location specified by the calling sequence. 


C 
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TEMP: 

An 6-word area in which the Monitor Call will be generated® 


bM.b.l.E Scheduler Cal 1 ! 

CALL SCHEDL {Li flag-priori tyi parameter passedi 
temporary areal 

L is the requested program to be scheduled at the 
priority CP {in the Flag-Priori ty word}. 

Flag-Priority : 

A packed word containing a flag in bits 11-6 and a com- 
pletion priority CP in bits 3-D. {Bits 7-M are not used}. 
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IS 12 

ii a 

_z u_ 

J 0 

0 


□ 



l 


CP 


D •••IS 


FLAG 


□ 

1 

2 


L is a statement label 
L is an index to the directory 
L is an external core resident main 
program 


Parameter Passed: 

A positive integer may be passed to the scheduled pro- 
gram. The scheduled program obtains the parameter by 
calling the integer function LINK -Csee Section B-M.H.IJ. 

Temporary Area: 

A four-word temporary area in which the scheduler call is 
generated. After the scheduler call is complete! the 
temporary area is available for other use. 


bM.b.1.3 Timer Call: 

CALL TIMER CLt Flag-Units-Priori ty i time interval! Tem- 
porary Area> 

L is a program to give control at priority CP after the 
time interval has expired. 

Flag- Uni ts-Priori ty : 

A packed word containing a flag in bits 11-fli a unit of 
time code in bits T-Mi and a completion priority! CPi in 
bits 3-0. 

Time Interval: 

The time interval to delay before scheduling the program 
Li at level CP. 
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Temporary Area: 

A four-word temporary area used when generating the call. 
After the CALL has been executed! the temporary area is 
free for other use. 


IS 12 11 fl 7 43 0 


1 CP priority D...1S 

L D Units of time 

0 counts of 1571 clock 

1 .1 seconds 
5 1.0 seconds 
3 1.0 minutes 

^ See Scheduler Call for Flag interpretation 

The core clock at the end of the time interval will be 
passed to the requested program as a parameter. To ob- 
tain this passed parameter! execute the following: 

ITIME = LINK T0> 

where link is a function. 

L4.L.1.4 DISPATCHER entry to the Monitor: 

CALL DISPAT Gives control to the dispatcher. The 

next highest priority program will be 
started. 


L4.b.l.S Output Commands via the 1705 At< 2 Channel: 

Call 0UTINS where I0TA(2 is a 3-word table. 

IOUTAfl -Cl> Loaded into the (2 register. Should 

contain Converter! Equipment! and Station 
codes or the channel addresses for a con- 
tinuous command. 

I0UTA(2 -C2> ~ s \ Loaded into the A register. Contents 

varies depending upon the device selected. 
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IOUTAfl €31 A flag word which contains the follow- 

ing information after the call. 

□ No reject 

1 Internal reject 

2 External reject 


bM.b.l.b Input Commands via the 170S At( 2 Channel: 
CALL INPINS -CIINA(3> 

where IINAfl is a 3-word table. 


IINA<2 -Cl} 

IINAfl C2> 
IINAfl {3} 


Loaded into the (2 register. Should 
contain converter! equipment! and 
station codes or the channel address 
for a continuous command. 

After the call! contains the data or 
status obtained on input. 

A flag word which contains the following 
information after the call: 

\ 

□ No reject 
1 Internal reject 
E External reject 


Connect the 1750 and Execute an Input Commands 
CALL ICONCT -CIINAfl} 

See m.b.l.L, for the calling sequence interpretation • 
m.bfl.fl Connect the 1750 and Execute an Output Command: 

CALL 0C0NCT -CI0TA(2> 

See m.h.1.5 for the calling sequence interpretation • 
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b4.b.l. c I Obtaining the Passed Parameter: 

A program started by a schedule call or timer call may 
obtain the parameter passed to it by calling the integer 
function LINK. The calling sequence is: 

I = LINK -C03- 

This statement must be the first executable statement 
of the program. The completion location of a read/write 
call has an error code passed to iti which may be obtained 
by calling the integer function LINK. 

I = LINK -C0> 

If I is positive! then no error occurred in the Read or 
Urite call. If I is negative! then an error occurred. 


b4 • b • 1 • 10 Obtaining the Core Clock: 

The integer function ICLOCK obtains the current value 
of the clock. for example: 

I - ICLOCK C0> 

I contains the current value of the core clock.. 
b4.bol.il Release Allocated Memory Request: 

CALL RELESE -CHAIN]- 
where MAIN is the main program name. 
b4 . b • 2 Reentrancy 

The program may be either reentrant or non-reentrant . 

Reentrant - volatile storage is used to hold temporarily 
perishable data. 

Non-reentrant - an area within the program is used for 
temporary storage of parameters. 
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(□4.7 Program Description: 

(□4.7.1 Readi Write! Scheduler! and Timer Monitor Calls: 

Each Entry to the F0RTRAN/*Moni tor Run Time Package 
performs an initialization sequence in which the volatile 
allocation routine is called and the return address is 
saved. The calling sequence parameters are then inter- 
preted and the appropriate absolute monitor call is 
generated. The area in which the call is then executed 
using an indirect reference to the generated parameters. 

The FORTRAN program may have the parameters located any- 
where in core. 

U4.7.2 Miscellaneous Calls: 

Input and Output Instruction Routines: 

The Input and Output Instruction Routines allow the 
FORTRAN user to directly communicate with I/O devices 
tied to the 1700 computer via the 1705 At (3 channel. 

Upon entryi the address of the three-word table is 
generated! A and <2 are loaded! and the appropriate 
instruction {input or output! is executed. The contents 
of the A register are then stored back in the table. If 
a reject occurred in the 1/0 instruction! the flag word 
is set {word 3} and control is returned to the user. 

Obtaining the Passed Parameter: 

The function LINK simply transfers the contents of the 
(2 register! which the Monitor has loaded with the passed 
parameter! to the A register and returns control to the 
caller. 

Obtaining the Core Clock: 

The function ICL0CK simply loads the core clocki location 
E^lb into the A register and returns control to the caller. 
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LS-O Fortran Read/bJrite Statement Processor -C(Jfl(2I0> 
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bS.3 


Function 

This program serves as an interface between the FORTRAN 
READ/URITE statement-, ENCODE/DECODE-, and the 1700 Monitor 
Read/Urite Request Processor. It will allow the FORTRAN 
programmer to use READ/URITE statements as defined by 
FORTRAN. The resulting 1/0 processing will be through the 
reentrant ENCODE/DECODE package. The only changes resulting 
from this implementation are: l> The user must supply a 
buffer in which the format processing will take place •> 

2> IS temporary locations-, which immediately precede the 
buffer-, and will contain the calling sequences to the 
monitor for read/write processing and information for re- 
entrancy-, 3} on input only one record/read statement may 
be executed-, i.e.-, the FORMAT statement may specify only 
SO columns of data for card input-, 4} on output the record/ 
write statement may be as long as the space in the buffer 
allows with the following limitations: If the programmer 

has not specified a new line {/} after ISO characters have 
been packed into the buffer-, a carriage return is auto- 
matically inserted in the message and will continue to be 
inserted every ISO characters until the FORMAT processing 
is complete. 


Entry Points 


ARGU0 

flBUINI 

(2fl<3X 

<2fl<2END 

(JfldJGET 

SETBFR 

I0ERR 


Entry containing FUA of user’s buffer -[reentrant 
version only} which is saved by the scheduler. 
Entry to initializer format processing. 

Entry to pick up the parameters in list of vari- 
ables to be converted. 

Entry to signal the termination of format pro- 
cessing. 

Entry for ENCODE/DECODE to pass the user’s 
parameter addresses for format processing. 

Entry for user to specify the buffer address with 
temporary locations for generating the READ/bJRITE 
calling sequence and the length of the buffer- 
Entry for obtaining ERRQR flag immediately after 
executing a FORTRAN READ/URITE statement. 
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b5.3 External Symbols 

FORMTR Entry point for Encode/Decode 

Binary 


t.5 - M 


Entry & Exit Interfaces 


Before a READ/WRITE statement can be properly executed a 
CALL SETBFR {BUFFER -i LENGTH! must be made at least once. 

Alsoi after any Dispatcher call the SETBFR call must be 
repeatedi otherwise the buffer location has been destroyed. 
The user’s (3 t I registers will be saved and restored. 

After any ENCODE/DECODE call-, and before any FORTRAN READ/ 
WRITE statement! a call to SETBFR must be made. The scratch 
area contained in the user’s buffer is as follows: 


WORD 1. 

2. 

3. 

4. 

5 . 

tl • 

7. 

a. 

i . 

10 . 

11 . 

12 . 


Last Word Address {LWA! of Buffer 
Request Code for READ/WRITE 
Completion Address 
Thread 

Logical Unit 
Message Length 

First Word Address {FWA! of Message 

Unused 

Unused 

£J-Register of User 

Return Address to User^s Program 

I-Register of User 


WORD 13. READ/WRITE Flag {IC0DE! 

14. LIST Address 

15. Total Number of Variables in LIST {MV! 
lb. ENCODE/DECODE Flag CDEFLAG! 

17. FORTRAN FORMAT Flag 
IB. Error Flag 

11. Starting Location of User^s 1/0 Buffer 


The format for the FORTRAN FORMAT FLAG is: 
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Bit IS 

m 

13 

12 

11 

10 

fl-0 


not used 
1 = formatted 
Q = unformatted 
1 = actual LU 

□ = address of LU 

1 = format statement address 

□ = address of format statement address 
1 = list 

□ = no list 
1 = read 

□ = not read 
1 = write 

□ = not write 
not used 


The general calling sequence generated by the FORTRAN 
compiler for a READ/bJRITE statement is: 

RTJ dJflflINI 

1* Flag word {see above}. 

2. I/O Request number {user’s statement number}. 

3. LU or address of LU. 

4. Format statement address-i or address of format statement 
address. 

RTJ flflcJX 

1. Address of LIST element. 

RTJ <2fli2END 


^5*5 General Program Information 

LS.S.l Calling Sequence 

US* 5.1*1 Assign Buffer Location 

CALL SETBFR {BUFFER-iLENGTH} where the first IS words of 
the buffer will contain the calling sequence for the I/O 
request and information for reentrancy. The remainder will 
contain the input/output message. LENGTH is the total 
length of the BUFFER which includes the Ifl words needed by 
(2fl(3IO . 

For input operation: 
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READ -CLU-,1Q> LIST 

ID FORMAT { _ Where LU = the logical unit and LIST 

contains the elements to be input. 


For output operation: 

WRITE -CLU 1 1Q> LIST 

10 FORMAT {-*— > Where LU = the logical unit of LIST 
contains tne elements for output. 


For error flag: 

IFLAG = I0ERR-C0} Where IFLAG will contain a -1 if errors 
occurred. 


bS-S.E There are seven entry points in (36(210 with each having a 

unique function. They are as follows: 

1- (26(3INI picks up the location of the formati logical 
unit! and flag for READ/WRITE processing and returns 
if data is contained in LIST -Cas indicated by the flag 
word}. If only a format -CN0 LIST} is to be processed 
ENCODE/DECODE is called. The format is transferred into 
the bufferi a write request of the monitor is made! 
followed by a call to the dispatcher. On completion of 
l/0i control is returned to the user’s program. 

2. (28(2X passes the current parameter address within the 
LIST to ENCODE/DECODE for formatting. For the first 
request the input record will be obtained for a READ 
statement before calling ENCODE/DECODE! or the record 
for a WRITE statement will be output when format 
processing is complete. 

3. (28(3END simply passes the last parameter address within 
LIST to ENCODE/DECODE for processing and signals the end 
of formatting. 

4. (28<2GET is called by ENCODE/DECODE to signal that a 

new parameter is needed for continued format processing. 
If ENCODE/DECODE was called directly by the user (38(3GET 
updates the LIST address and returns to continue format 
processing. 


4 
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5. SETBFR is an entry which is called by the user once to 
pass the buffer address and buffer length to the 
reentrant I/O processor. This address and length are 
retained by the I/O processor throughout execution of 
the current program unless the user calls the dis- 
patcher or ENCODE/DECODE directly. If this occursi the 
user must call SETBFR again before any I/O can be done- 

b. I0ERR is an entry for a FORTRAN function call to return 
an error flag {-1} if any errors occurred while 
processing the previous READ/WRITE statement. 

7. ARGUQ is an entry in the reentrant version containing 
the FUA of the user’s buffer. When a FORTRAN priority 
level change is madei this location is saved by the 
SCHEDULER/DISPATCHER in the monitor. 


bS.5.3 Core Memory 

Approximately 24b locations {reentrant version} and ENCODE/ 
DECODE {17bb}<» Approximately 114 locations {non-reentrant 
version} and ENCODE/DECODE {Ibfil}. 


bS.b General Design Peculiori ties 

bS.b.l Reentrancy 

This program is reentrant using the volatile storage 
required by Encode/Decode. 


bS.b.2 Limiations and Restrictions 

The FORTRAN programmer is no longer restricted in the user 
of implied DO statements in the LISTi but still is restricted 
to one level of repetition in the FORMAT statement {see 
ENCODE/DECODE ) . A restriction 

is placed on input in that the FORMAT may designate only one 
input record {SB card columns}/record. On output the record 
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size will automatically be broken into ISO characters/line 
if the programmer has not designated a new line of output 
before the ISO characters. However the buffer may be 
filled with as many records as the size of the buffer allows. 
When formatting is complete the buffer is output with the 
N-records contained within. 

The format READ/URITE are the only calling sequence imple- 
mented in <26(310 i therefore! unformatted READ/URITE must still 
be made through the F0 RTR AN/ MONITOR RUN-TIME Package. 

Further! there is no implemenetation of mass memory READ/ 
WRITEi these requests must be made through the RUN-TIME 
Package . 


bS.b.3 User Instructions 

This program must be run in conjunction with the ENCODE/ 
DECODE package 
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bb.O Fortran Encode/Decode 

This document describes the Encode/Decode subroutines. 
Also subroutines which are a subset of Encode /Decode to 
be used by the FORTRAN programmer. This subset includes 
HEXASC-, HEXDEC-. ASCII-. DECHEX-, AF0RM-, RF0RM-. and 
FLOAT. 

bb.l Function 

These subroutines afford the FORTRAN programmer the 
ability to format a list of variables for input/output 
with a compiled format statement-, or to format a single 
variable by calling the appropriate formatting subroutine 
The purpose of formatting one variable at a time {when- 
ever possible! will save execution time needed for 
interpreting the format statement. 

bb.5 Entry Points 

Entry Symbols 

ENCODE An entry which converts a list of variables 
from a binary to external form according to 
a specified format for output. 

DECODE An entry which converts a list of variables 
from an external to binary form according to 
a specified format for input. 

HEXASC An entry which converts a hexadecimal integer 
into two words in ASCII format. 

HEXDEC An entry which converts a hexadecimal integer 
into a three word decimal integer in ASCII 
format {maximum value 327b?}. 

ASCII An entry which converts two words in ASCII 

format into a one word hexadecimal integer. 

DECHEX An entry which converts three word decimal 

integer in ASCII format into a one word hexa- 
decimal integer {Maximum value 327b7>. 
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AFORM An entry which converts one word in ASCII 

format into two words each containing an ASCII 
character {left justified* blank filled!. 

RFORM An entry which converts one word in ASCII format 

into two words each containing an ASCII character 
{right justified* zero fit led! - 

FLOAT An entry which converts a floating point variable 

into six words in ASCII code with the following 
format: t . XXXXXXEtOO . 


bfc>.3 Externals 

FLOT A FORTRAN floating point package used to handle 

floating point arithmetic. 


Interna 1 

Symbo 1 s 

IA 

Contains the most significant bits of a 
floating point number. Also used as a tem- 
porary location. 

IB 

Contains the least significant bits of a 
floating point number- Also used as a tem- 

porary location. 

ICH 

Contains the current format, conversion character. 

IFIELD 

Contains the current total field width specified 
in the f ormat . 

JFIELD 

Contains the current number of decimal pjaces 
to the right of the decimal point which is 
specified in the f ormat . 

FORMAT 

A location containing the FUA of the user’s 
FORMAT in the non-reentrant version of Encode/ 
Dec ima 1 . 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 

Arden Hills Development DIVISION 


MAR 51971 


DOCUMENT CLASS page NO _ 

PRODUCT mamf 1700 OPERATING SYSTEM 

PRODUCT MODEL NO. E00bH3.0 MACHINE SERIES 


DEFLAG A flag to indicate whether an Encode/Decode 
call or a 86(210 call was made. 

TEI1P Contains the return address to F0RP1TR {format 

processor} when a new parameter address is 
required for formatting. 

NUUBR Contains the current number of repeats on a 

format conversion character. 


ITERAT 

IX 


Contains the current number of repeats on a 
parenthes i zed expression. 

The ordinal to the current word in the f ormat . 


JX 


The ordinal to the current character within 
the f ormat . 


IBX 

JBX 

IR 


The ordinal to the current word of the buffer. 

The ordinal to the current character within the 
buffer . 

Scratch area for the conversion routines- 


ICODE Encode/Decode flag. 


ISTART 

JSTART 

LIST 


Ordinal to the start of the parenthes i zed ex- 
pression within the f ormat • 

Ordinal to the starting character of the 
parenthesized expression within the f ormat . 

The address of the current variable to be 
converted • 


MV Total variables to be converted. 

LPAREN Total number of left paren encountered in the 
f ormat . 


MAXCH Allowable number of characters packed into a 

buffer location. 
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ARGU1 

Conta ins 

the 

FWA of the buffer. 

ARGUE 

Contains 

the 

FWA of the f ormat . 

ARGU3 

Locat i on 

for 

computing addresses. 

ARGUM 

Locat i on 

for 

computing addresses. 

BUFFER 

A location containing the FWA of the user 9 s 
buffer in the non-reentrant version of 
Encode/ Decode. 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 

Arden Hills Development 


division MAR 5 1971 


DOCUMENT CLASS JUS PAGE NO M,-,S 

PRODUCT NAME 1.700 OPERATIMS-SYS-TEJI 

PRODUCT MODEL Nin EDnkw3«n MACHINE SERIES 120D 


bb-5 General Program Information 

bb-5.1 Calling Sequence 

bb.5.1.1 Encode and Decode Call 


CALL NAME {BUFFER, FORMAT, NO- Of VARIABLES, LIST} 


BUFFER The starting address of a buffer for encoding 
into/decoding from. The buffer length must 
be at least one half the total number of 
characters specified in the format statement. 


FORMAT The location of a format statement. This format 
may not contain more than one level of repetition 
for any given set of variables. The following 
character set will be interpreted as: 

Ew.d for output formatting of a floating 

point quantity with an exponent. v w v 
specifies the total field width and 
’d 9 specifies the total number of 
significant digits {maximum of b 
significant digits}. 

Fw.d for both input and output formatting 

of a floating point quantity. 
specifies the total field width and 
*d v specifies the total number of 
significant digits to the right of 
the decimal point - 10“^ to 10 + ^-l}. 

Iw.d for put put formatting of a decimal 

integer, ’w’ specifies the total 
field width and ^d^ 7 specifies the seal ling 
factor {ID" 0 *}. The magnitude of the 
integer: fl 5 -l>I. 
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Iw 




Aw 


Rw 


for both input and output formatting 
of a decimal integer. ^w* 7 specifies 
the total field width* The magnitude 
of the integer: {2“ -1 to 2 -1>. 

for input/output of hexadecimal 
integers. * w * specifies the total 
field width. The magnitude of the hex 
integer $7FFF • 

for input /out put of alphanumeric data- 
The character will be left justified 
blank fill. ^w* 7 specifies the field 
width which must be ^2. 

for input/output of alphanumeric data. 
The character will be right justified 
zero fill. v w * specifies the field 
width which must be =1. 


wH 


for headings and labeling {ASCII code}. 


/ beginning new record {single line space} 

1 as the first character in a format 

statement the i nterpretat i on will be 
* Top of Form* 7 . 

CKzero} as the first character in a format 

statement the i n terpretat i on will be 
double I ine space . 


No- of variables number of variables contained in the 

list for formatting. 

List a list of variables to be converted 

{cannot contain an implied DO state- 
ment} • 


NOTE: If an odd number of characters has been packed into 

the buffer » a nul I {□□} will be stored as the re- 
maining character. 


A special calling sequence is: 

CALL ENCODE/DECO DECIBUF » IFORfW 0 r 0} 
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Lb. S. 1.3 


The format must contain nH specifications only. for 
ENCODE *n^ ASCII characters will be transferred from 
the format to the buffer. For DECODE ^n' 7 ASCII char- 
acters will be transferred from the buffer to the format. 

HEXASC and HEXDEC Call 


CALL NAME {VAR IABLE , BUFFER! 

VARIABLE the location of a hexadecimal integer to be 
converted to ASCII format. 

BUFFER the location of a two word buffer to contain 
the converted integer in hexadecimal formr or 
the location of a three word buffer to contain 
the converted integer in decimal form. The 
format for the decimal integer will be a max- 
imum of 5 digits preceded by a t sign Right- 
justified blank fill. 

ASCII and DECHEX Cal 1 


CALL NAME {BUFFER , VARIABLE! 


BUFFER the location of a two word buffer which 

contains a hexadecimal integer in ASCII format 
or the location of a three word buffer which 
contains a signed decimal integer in ASCII 
format . 


VARIABLE the location which will contain the integer 
converted to hexadecimal form. 


bb.S.l.M AFORM and RFORM Call 


CALL NAME {VARIA BLE, BUFFER! 

VARIABLE the location containing two ASCII characters. 

BUFFER the location of a two word buffer which will 
contain an ASCII character per word. 


c 
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bb.S.l.S FLOAT Cal 1 

CALL FLOAT {VARIABLE r BUFFER} 

VARIABLE the 1 ocat i on of a floating point variable. 
BUFFER the location of a six word buffer. 


bb.b Program Description 

1. The entry to the non-reentrant ENCODE/DECODE package 
performs an i n i t i a 1 i zat i on sequence in which the users 
calling parameters are absolutized and stored in a 
calling sequence for the subroutine FORNTR. FORNTR 

is the main program which interprets the format speci- 
fications and calls the appropriate conversion routine. 
The conversion routines do the computations from/to 
binary representat i on and pack/unpack the ASCII char- 
acters according to the format specifications. The 
subroutine HEXASC , HEX DEC , ASCII , DECHEX , AFORN , RFORN , and 
FLOAT call the appropriate conversion routines directly. 

2. The entry to the reentrant ENCODE/DECODE package performs 
an i n i t i a 1 i zat i on sequence in which the volatile a I 1 o- 
cation routine is called and the return address is saved. 

The procedure is then the same as in the non-reentrant 
package. The subroutine HEXASC , HEXDEC , ASCII r DECHEX , 

AFORN . RFORN , and FLOAT are also reentrant. 

The ENCODE/DECODE package is to be used in conjunction with 
the FORTRAN/NONITOR RUN-TINE PACKAGE which output/input a 
formatted record. 

bb-7 Re I ocatab i I i ty 

The reentrant version is loader relocatable; the non- 
reentrant version is loader relocatable run-anywhere . 


AA 3777 


PRINTED IN USA 



CONTROL DATA CORPORATION 

Arden Hills Development DIVISION M/\R 5 1971 

DOCUMENT CLASS IMS PAGE NO 

PRODUCT NAME 1700 OPERATING-SYSTEM 

PRODUCT MODEL NO. ..EIlDh.'«3_«I3 MACHINE SERIES 12111] 



bb.fl Reentrancy 

There are two versions of the ENCODE/DECODE package: 

1- A non-reentrant ENCODE/DECODE package written in 
FORTRAN and may be compiled as a loader relocatable 
package or a loader relocatable run-anywhere package. 

2. A reentrant EN CODE/DECODE package written in assembly 
language which is loader relocatable -Cnot run-anywhere} 


code • 

bL. 1 } Core Requirements 

bb.T.l Non-Reentrant ENCODE/DECODE 

Cbre Program IbMM 

Mass Memory none 

Non-Reentrant FORMATTING SUBROUTINES 
Core Program 211 

Mass Memory none 

Tables {Data} 37 

nOO Total 


bb.T.2 Reentrant ENCODE/DECODE 

Core Program 1732 
Mass Memory none 
Reentrant FORMATTING ROUTINES 

Core Program 212 
Mass Memory none 
Volatile Storage 2*^ 

1=173 Total 
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Lb. ID Reentrant ENCODE/DECODE 

All subprograms of the reentrant ENCODE/DECODE must have 
the following instructions: 


ENTRY NAME 


NAME □ 0 

INN 0 

RTJ INITAL 


JMP RSTORE 

END 


( 


fORMAT -C513 , 3{F5.23-} 


WORD COUNT 

1 

5 

CHARACTER COUNT 

1 5 

1 2 

FORMAT 

■C S 

I 3 


t 

t 

i 

NUMBR 


IFIELD 


3 M S b 7 



IFIELD 


IX=Uord Count 
JX=Char . Count 
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b7-0 Output Message Buffering Package 

Function 

The Output Message Buffering Package completes user message 
output by writing the message into a buffer area of core 
or mass memory. The message is subsequently read back from 
the buffer to a core area {character buffer} from which 
actual message output to a physical device is made by a 
monitor FURITE request. A buffer physical equipment table 
is required for each buffer and a corresponding logical unit 
is assigned. 

User requests are made by making FURITE monitor calls that 
address a buffer input logical unit. The corresponding 
buffer table includes the buffer output logical unit 
number to be used for actual output and the request priority 
for actual output. The buffer table also defined the 
available buffer area in core or on mass memory and the size 
of the character buffer. 

L7.2 Entry Points 

BUFDRI 
BUFDRC 
§URITC 
BREADC 
BOUTPC 

fc7.3 Externals 

ALTDEV 

(□7.4 General Program Information 

L7.4.1 Definition of Terms 


Buffer Driver Initiator {Input Section} 

Buffer Driver Continuator {Input Section} 

Transfer to Buffer Completion {Output Section} 
Transfer from Buffer Completion {Output Section} 
Actual Output Completion {Output Section} 


Alternate Device Handler 


BUFFER - BUFFER AREA: The area of core or mass memory 

reserved for storing messages prior to actual output. 

BUFFER INPUT LOGICAL UNIT: The Logical Unit used to request 

buffered message output. 
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BUFFER OUTPUT LOGICAL UNIT: The Logical Unit used by the 

Message Buffering Package for actual output of the message. 

BUFFER TABLE - BUFFER PHYSICAL DEVICE TABLE - BUFFER PHYSICAL 
EQUIPMENT TABLE: The equipment table corresponding to the 

Buffer Input Logical Unit. Includes all parameters for 
definition and use of the buffer- 

CHARACTER BUFFER: The core area reserved for holding 'the 

message or portions of the message dump actual output. 

MESSAGE: The data specified for output by a user request. 

^7.4. 2 Internal Symbols 

BFLEVL Priority Level of the Buffer Package 

BFFMLU Logical Unit for the Mass Memory Device 

These symbols must be defined by EfiJUs when the BUFFER macro 
is used. They are normally assigned as follows: 

E<2U BFLEVL -CIDJ 
E<2U BFMMLU-C$flC2> 


L?.4.3 Buffer Macro 

BUFFER F-, L n H-. LUn RPi N 
F = Start Address of Buffer -CLSBI 
L = End +1 Address of Buffer 

H = Most Significant Bits of Buffer Address {MSB! 
{Blank for a Core Buffer! 

LU = Logical Unit for actual output 

RP = Request Priority for Buffer Output on this lu 

N = Size of Character Buffer for actual output 
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this macro generates the Buffer Physical Device Table and 
the Character Buffer area. The character buffer will follow 
the last word of the Buffer Physical Device Table. The 
address of the Buffer Physical Device Table must be added 
to the L0G1A Logical Unit Table and its relative position 
in that table determines the logical unit number assigned 
to the Buffer. 

The corresponding L0G1 and L0G5 entries are 0 and FFFF-, 
respectively. 

Data generated by BUFFER macro: 


BTAB 


45 

43 


Buffer Table 
Length 43 

jLU 


I 

Character Buffer 
Length 


y 


is the length of the character buffer as specified 
in the macro call. 

V BTAB V is the address dr the Buffer Table that must be put 
in the L0G1A logical unit table. 
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L« - M - 4 Buffer Table 

The buffer table is the physical equipment table for the 
buffer. It is extended beyond the standard 13 words common 
to all drivers. The following diagram shows the 
assignment of symbolic names and the initial setup of the 
buffer table. 

FiLiHiLU-iRPiN are as defined for the BUFFER macro 
LV = BFLEVL = Priority Level {='=)> 

BFHHLU = Hass Hem. Logical Unit -C=$flCB> 

CHBUFF is the Character Buffer Address {=BTAB+43> 
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Symbolic Addresses 


□ 

ELVL 

1 

EDIN 

2 

EDCN 

3 

ED PGM 

4 

EDCLK 

5 

e'lu 

b 

EPTR 

7 

EWES 

a 

EREflST 

T 

EST ATI 

ID 

ECCOR 

1 

ELSTUD 

2 

ESTAT2 

3 

TIMER 

4 

LOCB 

5 

ENDB 

b 

FIRST 

7 

LAST 

a 

DPLD 


1 

2D 

2 

1 

3 

2 

DLEG 

3 

DART 

4 

DTRACK 

S 

STOR 

b 

CONTRL 

7 

DOUTO 

a 

1 


2 

30 

3 

1 

OUTLNG 

2 

DADR 

3 

OUTTK 

4 

READ 

5 

SKELNG 

b 

OUTPO 

7 

1 

a 

2 

T 

3 

4D 

4 

1 

ACHAR 

2 

LCHAR 
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Initial Setup 


Standard Physical Equipment Table 

□ 

$12DD+LV 

Initiator Entry 

1 

BUfttRI ~ 

Continuator Entry 

2 

BUFDRC 

Diagnostic Entry 

3 

BUFDRC 

Diagnostic Clock 

4 

-1 

Logical Unit Assigned 

S 

0 

Adr- of Request 

b 

□ 

Hardware Address 

7 

□ 

Type Code 

a 

$A4 

Status Uord 1 


□ 

Start Code Address 

ID 

0 

End Core Address +1 

1 

□ 

1 ' Status Uord 2 

2 

□ 

No of attempts 

3 

0 

Buffer Start 

4 

F 

Buffer End +1 

S 

L 

Temp Buffer Start 

(a 

F ] 

Temp Buffer End +1 

7 

L 

Mass Memory URITE 

a 

$0 4F0+L V 1 

Completion Address 


BURITC 

Thread 

20 

0 1 

Logical Unit 

1 

BFMMLU 

Length 

2 

□ 

Core Address 

3 

□ 

MSB of M.M. Address 

4 

H 

V Buffer Store Pointer 
Control Uord 

S 

F 

b 

0 

lass Memory READ 

7 

$2D0+lb*<LV+LV 

Completion Address 

a 

BREADC 

Thread 


□ 

Logical Unit 

30 

BFMMLU 

Length 

1 

□ 

Core Address 

2 

CHBUFF 

MSB of M.M. Address 

3 

H 

1 7 Buffer Read Pointer 

4 

F 

Control Uord 

S 

0 

Character Output FURITE 

b 

$CDa+lbMRp+LV 

Completion Address 

7 

BOUTPC 

Thread 

a 

□ 

Output Logical Unit 


LU j 

Length 

40 

0 

Address of Char- Buffer 

1 

CHBUFF 

▼ Length of Char. Buffer 

2 

N 


BUFFER OUTPUT PHYSICAL DEVICE TABLE 
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b 7 .S Description 

The buffer table includes the initiator continuator and 
diagnostic time-out entries to the buffer package in words 
1-3. Therefore! a request for buffered output will cause 
the input section of the buffer package to be scheduled 
unless it is busy. If it is busy! requests are threaded 
in the normal manner. 

The input section is concerned with transfer of messages 
into the buffer. This section operates just like the 
driver for a physical device. The buffer area correspond 
to the physical devices to be driven. FNR -Cfind next 
request subroutine! is used to pick up the request parameters. 
If no requests remain then the program exits to the 
dispatcher! otherwise! an attempt is made to write the message 
into the buffer. The I register holds the buffer table 
address • 

Tests are first made to determine that the length of the 
message +1 is small enough to fit into the available area 
of the buffer. The next location to store into is saved 
in the ST0R pointer in the buffer table. If the end of the 
buffer is reached! a temporary end location! LASTi is set 
equal to ST0R then ST0R is set back to the start of the 
buffer. Insufficient space is available if the length of the 
message +1 + ST0R is equal to or beyond the current location 
for reading from the buffer! REAf. When this happens! five 
successive tries will be made at 1 second intervals via the 
diagnostic time-out entry. {This feature is unavailable if 
the 1573 timer is not included in the system}. If space is 
still unavailable after five seconds! the error code is set 
in d and control passes to the alternate device handler. 

One extra word is added to the message to save the length of 

the message in the buffer. This word C0NTRL! is written in 

the buffer first! followed by the actual message. The buffer 

ST0R pointer is updated on successful completion. The monitor 

request parameters for the mass memory transfer form part of 

the buffer table. Core buffering does not require the 

monitor request but the high order bits of the ’mass memory” 

address are set to flODD to denote a core buffer. 

lb 
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On completion of buffering! COMPRfl {complete request 
subroutine} is executed to complete the user request. 

The output section is then scheduled unless output is 
already in progress for the buffer. Control then passes 
back to the initial entry to search for further requests. 

Entry to the output section is made with the Q register 
set equal to the buffer table address. This address is 
saved in the I register. The output section transfers 
the message out of the buffer to the character buffer and 
makes an FURITE request for actual output to the physical 
device. All the parameters for the mass memory transfer 
and the F WRITE output are held in the buffer table. 

The current location to read from the buffer is held in 
location READ in the buffer table. A transfer of length 
equal to the character buffer length is made starting with 
this location. For core buffers this is a simple core to 
core transfer. Otherwise! a monitor READ request is used to 
transfer data from the mass memory device. On successful 
completion! the READ pointer is updated by the length of 
the transfer. New messages are recognized by the contents 
of SKELNGi being reset from the first word of the data just 
transferred from the buffer. 

The remaining length is then calculated by subtracting the 
length just transferred from SKELNG. If SKELNG is zero the 
message is complete. If SKELNG is negative too much data 
was transferred and the READ pointer and the length for 
actual output must be adjusted to the actual message length. 
If SKELNG is greater than zeroi the message is incomplete and 
further transfers will be required. When the message is 
complete! the temporary start of buffer pointer FIRST is set 
to READ. If FIRST is now equal to LAST , FIRST and READ are 
reset to the actual start and LAST to the actual end of the 
buffer. 

Actual output of the data in the character buffer is then 
initiated via a FURITE monitor request to the buffer output 
logical unit specified in the buffer table. On completion 
of actual output control returns to the start of the output 
section where a test is made to determine if the buffer is 
empty! 1*e»! no messages remain. If soi the program exits! 
otherwise output continues. 
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Note that long messages will be split into separate FWRITE 
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